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EDITORIAL 


,  --«CCIVMTISIMO 


••• 


Viaje  a 

Estados  Unidos  e  Inglaterra 

YA  FALTA  POCO 


•  •• 


Ya  falta  poco,,,  hoy  a  20  de  marzo 
hemos  anotado  el  socio  suscriptor 
4154;  nuestro  socio-suscriptor  5000,  como 
ya  decíamos  en  nuestro  número  anterior, 
le  corresponderá  un  viaje  a  Estados  Uni¬ 
dos  con  visita  a  las  instalaciones  de  la 
Casa  Com modere  y  enLre  los  4999  sus- 
criptores  primeros  se  sorteará  un  viaje  a 
Inglaterra  con  visita,  asimismo,  a  la  cen¬ 
tral  de  Commodore  allí. 

Número  de  socio  suscriptor 

A  partir  del  próximo  número  en  la  eti¬ 
queta  de  envío  de  la  revista  irá  el  número 
de  socio- suscriptor. 


COLABORACIONES 

Es  estupendo  ver  la  gran  respuesta 
del  equipo  de  lectores.  Si  no  veis 
vuestra  colaboración  publicada  en  el  pri¬ 
mer  número  después  de  enviada  no  os 
defraudéis,  tened  paciencia  — las  colabo¬ 
raciones  que  nos  llegan  después  del  día  10 
de  cada  mes  deben  quedar  para  el  número 
siguiente  por  razones  de  maque tación  e 
imprenta* 

IMPORTANTE:  Repetimos  que  los 
programas  procurad  enviárnoslos  en  cinta 
pues  nos  hace  mucho  más  fácil  el  trabajo 
de  comprobación  — devolvemos  siempre 
las  cintas  con  un  programa  de  regalo*  Sí 
os  es  imposible  enviar  cinta  por  alguna 
razón  de  peso...  bueno...  que  le  vamos  a 
hacer ! —  pero  sólo  por  una  razón  de  gran 
peso,  por  favor.  Si  tenéis  teléfono,  enviad 
el  número  con  las  señas  por  si  necesitamos 
pedir  alguna  aclaración. 


IMPORTANTE  OTRA  VEZ:  Aunque 
comprobamos  los  programas  de  colabo¬ 
ración,  no  nos  hacemos  responsables  de 
los  mismos. 


SERVICIO  DE  CINTAS 

Como  ya  hemos  dicho  en  números 
anteriores,  aquellos  lectores  que 
quieran  las  cintas  de  los  programas  que 
aparecen  en  la  revista  pueden  pedirlos 
enviando  un  cheque  de  875  pesetas  por 
cima  más  75  pesetas  por  gastos  de  envió 
pero  —CUIDADO —  no  podemos  enviar 
cintas  con  programación  de  Jos  colaborado¬ 
res*  para  esto  tenéis  sus  nombres  y  direc¬ 
ciones  a  fin  de  que  podáis  poneros  en ‘con¬ 
tacto  directamente. 


CALIDAD  DE  IMPRESION 
DE  LOS  PROGRAMAS 

Un  par  de  lectores  se  han  quejado  de 
la  calidad  de  impresión  de  los  lis¬ 
tados  de  los  programas.  Como  ya  hemos 
dicho,  todos  tos  programas  que  se  publi¬ 
can  van  comprobados  al  detalle.  Los 
compositores  de  imprenta,  que  no  son 
expertos  en  informática,  pueden  cometer 
errores  y  en  un  listado  es  casi  imposible 
evitar  a  ese  duendecillo  travieso  de 
imprenta.  Por  esta  razón,  y  para  evitar 
errores  f rústanles  para  todos,  entregarnos 
los  programas  a  la  imprenta  para  repro¬ 
ducir  en  directo  del  listado  original  con¬ 
feccionado  por  nuestra  impresora.  Cree¬ 
mos  que  es  preferible  sacrificar  un  poco  la 
calidad  de  impresión  a  ía  calidad  autén¬ 
tica  que  pretendemos  dar.  De  todas  for¬ 


mas,  a  partir  de  este  número  se  reprodu¬ 
cen  los  programas  a  un  tamaño  '  ade¬ 
cuado”  para  la  vísta. 


MAGIA  Y  CONCURSOS 

■  on testando  la  duda  de  un  lector,  y 

por  si  hubiera  otros  con  esta  misma 
duda,  queremos  aclarar  que  cuando  se 
haga  el  sorteo  de  premios  entre  los  trucos 
aparecidos  en  Magia,  solamente  entrarán 
en  sorteo  aquellos  trucos  que  nos  hayan 
sido  remitidos  directamente  por  nuestros 
lectores,  sean  suscripto  res  o  no.  Aquellos 
trucos  que  hayan  sido  utilizados  de  nues¬ 
tra  revista  americana  no  entrarán  en  nin¬ 
gún  caso  en  sorteo. 

Siempre  que  nuestra  revista  COMMO¬ 
DORE  WORLD  convoque  un  concurso 
de  cualquier  upo,  publicará  el  nombre 
completo  de  los  ganadores  con  dirección, 
edad  y  número  de  socio  en  caso  de  ser 
sucriptor. 


FERIA  DEL  MICRO 
EN  EL  CORTE  INGLES 

A  partir  del  día  2  de  Abril,  y  durante 
todo  el  mes,  el  Corte  Inglés  de 
Castellana,  en  Madrid,  celebrará  su  pri¬ 
mera  Feria  del  Micro  — allí  estará  Com¬ 
modore  y  allí  estaremos  nosotros  con 
Commodore  World,  esperamos  que  madri¬ 
leños  v  “turistas”  vengáis  a  visitarnos — 
no  os  olvidéis,  todo  el  mes  de  abril  en  la 
planta  6a  del  Corte  Inglés  de  Castellana, 
¡Y  con  buena  cafetería  allí  mismo  para 
tomarse  un  boca  t a! 


VIAJES 

A  ESTADOS  UNIDOS  E  INGLATERRA 
PARA  NUESTROS  SUSCRIPTORES 

¡CUIDADO! 

Solamente  la  revista  COMMODORE  WORLD 
publicada  por  SXMLS.A. 

está  ofreciendo  esta  oportunidad  a  sus  socios-suscríptores 
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TIRADA  D€  COMMODORC  UUORLD 
Certificación  de  28.000  ejemplares 

Según  certificado  firmado  por  la  auditoría  internacional 
D€LOITT€  HflSKINS  S€US,  S.R. 
el  5  de  marzo  de  1984, 

la  tirada  de  Commodore  World  es  de  28.000  ejemplares. 

€ste  certificado 

se  encuentra  en  las  oficinas  de  S.I.M.S.R. 
para  comprobación  de  cualquier  persona  o  entidad  que  lo  desee. 


SERVICIO  DE  CINTAS 

Título  del  programa  . publicado  en  ne  □ 

Título  del  programa  .  publicado  en  ne  □ 

Título  del  programo  .  publicado  en  nB  □ 

Título  del  programa  . „ . . .  publicado  en  n»  □ 

Precio  por  cinta  850  pesetas.  Gastos  de  envío  75  pesetas.  Forma  de  pago  por  cheque. 


Peticionario  . . . . . . . . +1(T1,+ . +.„ . „ . . ,„,T# . . 

Calle  . . . . , . . . . . . . . . ; . . . .  (s|9 

Población  . . . . . . .  D.P .  Provincia  .  . . . . . . 

Incluyo  cheque  por . . .  pesetas. 


EJEMPLARES  ATRASADOS  DE  «CLUB  COMMODORE» 

Para  poder  satisfacer  la  creciente  demanda  de  números  atrasados  de  nuestra  Revista,  agolada  en  todas  sus  edi¬ 
ciones,  hemos  puesto  en  marcha  un  Servicio  para  suministrar  fotocopias  de  los  ejemplares  que  nos  sean  solicitados. 
Para  recibir  las  fotocopias  de  una  o  de  varias  ediciones,  na  hoy  más  que  enviarnos  el  boletín  con  los  datos  indicados. 


SERVICIO  DE  FOTOCOPIAS NUMERO  DE  LA  EDICION  SOLICITADA. 


Kj - T' 

0 

1 

2 

3 

4  |  5 

Ó 

7 

8 

9 

10" 

1 1 

12 

13 

14 

15 

_ 1 

_ ( 

1 _ J 

(Poner  una  X  debaio  del  numero  de  edición  pedida) 

Peticionario:  D . . . . . . . . 

Calle  .  ng 

Población  . . . .  D.P .  Provincia  . 

Forma  de  pago  por  cheque  Precio  de  la  edición  fotocopioda:  250  ptas. 

La  colección  completa  del  0  al  15:  2.500  ptas.  ■  100  ptas.  por  gastos  de  envío 
Induyo  cheque  por . ptas. 
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Clave  para  interpretar  los  listados 


Todos  los  listados  que  se  publican 
en  esta  Revista  han  sido  ejecu¬ 
tados  en  el  modelo  correspondiente 
de  la  gama  de  ordenadores  COM- 
M  O  DORE.  Para  facilitar  la  edición 
de  los  mismos  en  la  Revista  y  para 
mejorar  su  legibilidad  por  parte  del 
usuario,  se  les  ha  so  me  Li  do  a  ciertas 
modificaciones  mediante  un  programa 
escrito  especialmente  para  ello.  Para 
los  programas  destinados  a  los  orde¬ 
nadores  V IC-20  y  COMMODORH  64, 
en  los  que  se  usan  frecuentemente  las 
posibilidades  gráficas  del  teclado,  se 
han  sustituido  los  símbolos  gráficos 
que  aparecen  normalmente  en  los  lis¬ 
iados  por  una  serie  de  letras  entre 
corchetes  []  que  indican  la  secuencia 
de  teclas  que  se  deben  pulsar  para 
obtener  el  carácter  deseado.  A  conti¬ 
nuación  se  da  una  tabla  para  aclarar 
la  interpretación  de  las  indicaciones 
entre  corchetes: 

[CRSRD]  =  Tecla  cursor  hacia  abajo 
(sin  SHIFT) 

]  CRSRUJ  =  Teda  cursor  hacia  arriba 

(con  SHIFT) 

JCRSRRJ  =  l  eda  cursor  a  la  derecha 
(sin  SIIIFT} 

[CRSRL]  =  Tecla  cursor  a  la  izquierda 
(con  SHIFT) 

[HOME]  =  Tecla  CLR/HOME 
(sin  SI  1IFT) 

[CLR]  =  Tecla  CLR/HOME 
(con  SHIFT) 

Las  indicaciones  [RLK]  a  [YEL] 
corresponden  a  la  pulsación  de  las 
tedas  de  1  a  8  junto  a  la  ícela  CTRL. 
Lu  mismo  sucede  con  |RVSQN1  y 
[RVSOF]  respecto  a  la  tecla  CT  RL  y 
las  teclas  9  y  10. 


El  resto  de  las  indicaciones  constan 
de  la  parte  COMM  o  SHIF  seguidas 
de  una  letra,  número  o  símbolo  — por 
ejemplo  [Cp.MM-b]  o  [SI UFA] — . 
Esto  indica  que  para  obtener  el  grá¬ 
fico  necesario  en  el  programa  deben 
pulsarse  simultáneamente  las  tedas 
COMMODORH  (la  que  lleva  el  logo¬ 
tipo)  o  una  de  SHIFT  y  la  tecla  indi¬ 
cada  por  la  letra,  el  número  o  el  sím¬ 
bolo.  en  el  ejemplo  anterior:  COMMO¬ 
DORH  y  +  o  SHIFT  y  A.  respecti¬ 
vamente. 

En  los  signos  gráficos  además  se 
cuenta  el  número  de  veces  que  apa¬ 
rece.  Por  ejemplo,  [7  CRSRRj  equi¬ 
vale  a  7  pulsaciones  de  la  tecla  cursor 
a  la  derecha  y  13  SPC]  tres  pulsaciones 
de  la  barra  espadadora. 


INDICE  ANUNCIANTES 


Pdgs. 

Basic  Microordenadores,  S.  A.  . 43 

Commodore  64  . . .  36  y  37 

Commodore  World  . 51 

EAF  .  17 

El  Corle  Inglés  .  26  y  27 

Iberdata  .  57 

Micro5istemas  . . . . .  23  y  53 

Sakati  . . 33 

Tecnhel  . 31 

Tele  Sanl  Just .  65 

Tronic . 41 

VIC-20  . 68 
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Una  Excursión  en  Basic 

Más  allá  del  Manual 


Capítulo  III 

Pat  líiffríiv  IVIíllc 


En  el  artículo  de  este  mes,  bajare 
inos  a  la  selva  de  la  programa 
ción,  donde  encontraremos  — y  apren 
deremos  a  dominar —  los  bucles 
GOTO  y  los  comandos  “Folte”. 


Hasta  ahora  en  esta  serie  de  artículos,  hemos 
hablado  del  uso  de  varios  comandos  internos,  eí 
uso  de  las  variables,  el  comando  Read  y  la  senten¬ 
cia  Data,  y  nos  hemos  aproximado  a  los  bucles 
GOTO.  (El  Lisiado  1  presenta  el  estado  actual  del 
programa  que  estamos  desarrollando). 

Este  mes  vamos  a  hablar  un  poco  más  del  bucle 
GOTO.  En  general,  el  concc pto  de  los  bucles 
constituye  un  método  para  repetir  la  misma  cosa 
una  y  otra  vez.  Por  ejemplo,  si  yo  Le  digo  que 
abras  cinco  bolsas  de  papel  y  que  mires  su  conte¬ 
nido,  harás  la  misma  operación  para  cada  bolsa. 

Resultaría  un  poco  pesado  tener  que  escribir 
cinco  veces  la  explicación  de  este  proceso,  pero  si 
la  instrucción  se  coloca  dentro  de  un  bucle  de 
control,  sólo  hace  falta  escribirla  una  vez.  El  bucle 
ejecutará  la  instrucción  cinco  veces. 

Para  controlar  un  bucle  útil  iza ndo  una  senten¬ 
cia  GOTO,  también  hace  falla  verificar  el  numero 
de  veces  que  se  va  a  realizar  la  instrucción.  Se 
puede  utilizar  la  sentencia  lfL.Thcn  (pág,  37-39  en 
el  manual  del  C-64)  para  comprobar  alguna  rela¬ 
ción  específica  entre  dos  o  más  datos.  Los  dalos 
pueden  ser  variables,  constantes  (el  nombre  que 
damos  a  los  datos  no  variables)  o  las  dos  cosas. 

En  el  caso  de  las  cinco  bolsas  de  pcpel,  éstas  se 
van  contando  a  medida  que  vayan  llegando  y  se 
dejan  de  contar  cuando  se  hayan  comprobado  las 
cinco.  Otro  método  para  realizar  la  verificación 
seria  determinar  el  momento  en  que  no  queden 
bolsas  por  mirar. 


Cómo  salir  del  Bucle 


rara  traducir  esto  en  c!  programa  Catalog, 
cuando  se  hayan  imprimido  todos  los  datos 
de  la  sentencia  Data,  se  deja  de  imprimir.  Esto  se 
puede  hacer  colocando  unos  datos  “falsos11  al 
final  de  las  sentencias  Data,  Sería  poco  probable 
que  una  cinta  tuviera  el  número -I,  y  que  un  juego 
se  llamara  EOF  (Fin  de  Fichero).  Ahora  se  añade 
la  falsa  sentencia  Data  tecleando 
9999  DATA  -I,  EOF 

Para  realizar  la  verificación  de  programa  para 
estos  datos  se  inserta  la  frase  “Si  el  número  de 
cinta  =  -l,  deja  de  imprimir”.  Esto  traducido  en 
Rasíe  sería:  11  N  =  -l  then  (salir  del  bucle). 

Para  conseguir  una  programación  bien  estruc¬ 
turada,  es  buena  idea  comprobar  las  condiciones 
de  control  del  bucle  desde  el  principio  del  con¬ 
junto  de  instrucciones  contenidas  en  un  bucle. 
Esto  se  hace  añadiendo  la  comprobación  en  la 
línea  65.  (El  bucle  empieza  en  la  sentencia  Read  en 
la  línea  60).  Se  teclea: 

65  IF  N  —  -1  THEN  GOTO  90 
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Esta  instrucción  comprueba  si  el  pro¬ 
grama  ha  llegado  a  los  datos  falsos.  Si  es 
asi.  el  programa  pasa  a  la  línea  90;  si  no. 
pasa  directamente  a  la  siguiente  línea,  la 
70.  Cuando  llega  a  la  línea  80,  vuelve  a  la 
línea  60.  donde  lee  el  siguiente  dato  de  Ja 
sentencia  Dala  y  vuelve  a  comprobar  para 
ver  si  ha  llegado  el  momento  de  salir  del 
bucle.  01  programa  sigue  dentro  del  huele 
hasta  que  se  encuentren  los  datos  falsos. 

Dado  que  el  programa  tiene  instruccio¬ 
nes  de  continuar  en  la  línea  90,  dicha  línea 
tiene  que  ser  añadida  para  que  el  pro¬ 
grama  tenga  a  dónde  ir. 

Si  no  existe  la  línea  de  destino  del 
GOTO,  el  programa  terminará  en  error. 
Es  buena  idea  poner  un  REM  en  la  línea 
90  indicando  el  final  del  bucle. 

Se  teclea: 

90  REM***F1N  DE  BUCLE*** 

Á  medida  que  vayas  adquiriendo  cono¬ 
cimientos  de  programación,  descubrirás 
muchos  más  usos  para  la  sentencia  If... 
Thcn .  Hablaremos  de  estos  usos  más 
adelante. 


Combinaciones  de  Color 

Vamos  a  volver  a  hablar  de  la  senten¬ 
cia  Print  para  ver  cómo  la  salida  del 
Comm odore  puede  resultar  más  intere¬ 
sante.  Podría  ser  divertido  que  el  listado 
salga  en  color,  y  a  lo  mejor  te  apetece 
cambiar  los  colores  del  fondo  y  los  bordes 
de  la  pantalla. 

Todos  los  controles  para  que  los  datos 
salgan  en  pantalla  están  codificados  de 
modo  permanente  en  forma  numérica 
dentro  de  la  memoria  del  ordenador. 
Parte  de  esa  memoria  está  disponible  para 
el  uso,  así  que  el  usuario  puede  modificar 
la  forma  en  que  funciona  el  ordenador. 
Esto  se  hace  medíante  el  comando 
“Foke’h 


Tabla  1.  Valores 
cobres  del  C-64, 

de  POKE  para  los 

COLOR 

VALOR 

Negro 

0 

Blanco 

1 

Rujo 

2 

Cían 

3 

Púrpura 

4 

Verde 

5 

Azul 

ó 

Amarillo 

7 

Naranja 

8 

Marrón 

9 

Rosa 

10 

Gris  1 

11 

Gris  2 

12 

Verde  claro 

13 

Azul  claro 

14 

Gris  3 

15 

El  comando  “Poke”  modifica  el  valor 
almacenado  en  una  posición  específica  de 
memoria,  Pero  no  te  preocupes;  no  es 
permanente.  Se  puede  volver  a  modificar 
mediante  otro  comando  “Poke’L  Además, 
el  sistema  vuelve  a  fijarse  en  los  valores 
originales  cuando  se  apaga  el  ordenador. 

Por  lo  tanto,  los  valores  almacenados 
en  las  posiciones  que  controlan  los  colores 
del  fondo  y  los  bordes  de  la  pantalla  pue¬ 
den  ser  modificados. 

La  posición  53280  controla  el  color  de 
los  bordes  y  la  posición  53281  controla  el 
color  del  fondo  de  la  pantalla.  La  Tabla  I 
presenta  los  valores  “Poke“  para  dichas 
posiciones  para  los  diversos  colores. 

Estos  valores  pueden  ser  colocados  en 
cualquiera  délas  dos  posiciones  de  memo¬ 
ria  que  controlan  los  colores  de  pantalla. 


01  formato  correcto  para  un  comando 
“Pote"  es: 

POKE  53280,7 

Un  comando  4lPoke"  puede  ser  intro¬ 
ducido  directamente  del  teclado  o  puede 
ser  ejecutado  dentro  de  un  programa. 
Adelante...  prueba  un  par  de  valores  dife¬ 
rentes  en  estas  posiciones. 

Hay  que  tener  en  cuenta  que  cuando 
eliges  un  color  de  fondo,  tiene  que  ser 
compatible  con  el  color  escogido  para  los 
caracteres.  Existen  unos  colores  de  carac¬ 
teres  que  no  se  ven  muy  bien  contra  cier¬ 
tos  colores  de  fondo. 

Para  el  programa  Catalug,  vamos  a 
poner  un  color  suave  de  pantalla.  Un’ 
borde  gris  alrededor  de  un  fondo  negro 
podría  dar  buen  resultado,  pero  puedes  uti¬ 
lizar  el  color  que  quieras.  Para  emplear  el 
gris  y  el  negro,  se  añaden  las  siguientes 
sentencias  al  principio  del  programa: 

25  POKE  53280,12:  POKE  53281,0 

Ten  en  cuenta  que  se  puede  incluir  más 
de  una  instrucción  en  una  línea.  Esto  se 
puede  hacer  si  se  separan  las  instrucciones 
mediante  dos  puntos  (:).  Es  importante 
tener  en  cuenta  que  si  REM  es  la  primera 
“palabra11  en  una  línea,  dicha  línea  no  se 
ejecuta.  Si  quieres  utilizar  REM  en  una 
línea  de  varias  sentencias,  se  debe  de 
emplear  como  la  última  sentencia  en  la 
línea. 

En  el  manual  del  usuario  no  hay  una 
sección  especifica  que  trate  de  los  colores 
ni  de  los  listados  en  color.  Tendrás  que 
comprobar  el  índice  para  saber  cuáles  son 
las  páginas  que  se  refieren  a  este  tema. 


Comandos  Anidados 

En  el  primer  artículo  de  esta  serie, 
hice  una  breve  referencia  a  los 
comandos  anidados  que  se  pueden  añadir 


LISTADO  /.  EL  PROGRAMA  CATA  IMG  EN  SU 
ESTADO  ACTUAL 


10  REM***  PROGRAMA  CATALOGO  DE  CINTA 
*** 

28  REM#*#  ESCRITO  POR  :  TU  NOMBRE 

### 

30  PRINT " [CLR ]  " 

40  PR I NT " [ 9SPC ] CñTfiLOGO C SPC I  DE C  SPC ] C 
INTñ" 

50  PRINT 

53  PRINT "NO. ", "NOMBRE" 

54  PRIHT"CINTA",  "  PROGRAMA " 

56  PRINT 

60  REREN,  Pí- 
70  PRINTH, P$ 

80  GQTO60 

9  000  HñTR 1 0 1 , . J UEG01 ,101, JUEGO 2 
9010  DATA  102, JUEG03, 102, JUEGQ4 
9020  DRTA1 03 , JUEGOS , 1 03 , JUEGOS 


LISTADO  2.  PROGRAMA  QUE  DEMUESTRA  l-OS 
COMANDOS  ANIDADOS  DE  COLOR 

10  REM*##  PROGRAMA  CATALOGO  DE  CINTA 
*** 

20  REM***  ESCRITO  POR  ■  TU  NOMBRE 

*** 

25  POKE53280 ■ 12 : PQKE532S1 , O : REM  REM 
***  COLORES  HE  PANTALLA  +** 

30  PRINT" £ CLR 3 " 

40  PR I  NT " [ VEL 3 1 9SPC 3 ÜÑT HLÜÜU  £  SPC ' DE  I SPC 3 
CINTA" 

50  PRINT 

52  PRINT" [COMM63N0. " , "HOMBRE" 

54  PRINT "CINTA" , "PROGRAMA" 

56  PRINT 
60  REREN, Pí 
65  IFN=-1 THEHG0T039 
70  PRINT" [CVN3"N,PÍ 
30  00 T 060 

90  REM**#  FIN  DEL  BUCLE  *** 

9000  DATA 101, JUEGO  1 , 1 8 1 , JUEGOS 
9010  DAT  A 1 02 , JU E  G 0  3 , 182, J  U E  G 0  4 
9020  DATA  1 83 , JUEGOS , 1 03 , JUEGOS 
9999  DATA- 1, FIN  DE  ARCHIVO 
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MAS  ALLA  DEL  MANUAL 


Tabla  2 .  Las  c  ombinaciones  de  teclas  y  las  símbolos  para  ios  colores  en  el  C-64. 


TECLAS 

PULSADAS 

COLOR 

CARACTER 
INVERTIDO 
EN  PANTALLA 

CTRL  1 

N  egro 

Shift-P 

CTRL  2 

Blanco 

E 

CTRL  3 

Rojo 

Libra 

CTRL  4 

Cían 

Shift-* 

CTRL  5 

Púrpura 

Logo-  - 

CTRL  ó 

Verde 

Flecha  Arriba 

CTRL  7 

Azul 

Flecha  Abajo 

CTRL  8 

Amarillo 

7T 

LOGO  1 

Naranja 

Peco 

LOGO  2 

Marrón 

Shift-U 

LOGO  3 

Rosa 

Shift- V 

LOGO  4 

Gris  1 

Shift- W 

LOGO  5 

Gris  2 

Trébol 

LOGO  6 

Verde  claro 

Shift-  - 

LOGO  7 

Azul  claro 

Diamante 

LOGO  8 

Gris  3 

Shift-  T 

a  las  sentencias  Prim  dentro  de  un  pro¬ 
grama  para  obtener  diversos  resultados. 

Cuando  se  teclea  una  sentencia  Prim, 
ciertas  combinaciones  de  teclas  introduci¬ 
das  después  de  las  comillas  iniciales  fun¬ 
cionarán  como  códigos  para  determinare! 
color  de  lo  que  sigue  (dentro  de  las  comi¬ 
llas)  cuando  se  ejecuta  el  programa. 
Cuando  se  emplea  este  método  para 
modificar  los  colores,  un  símbolo  inver¬ 
tido  aparece  en  pantalla  para  indicar  el 
color  elegido. 

Si  estos  códigos  de  color  se  teclean  en 
sentencias  directas  (no  anidados  dentro  de 
las  comillas),  los  símbolos  no  aparecerán; 
lo  que  ocurre  es  que  se  modifica  el  color 
de  lo  que  se  teclee  a  continuación.  La 
Tabla  2  presenta  las  combinaciones  de 
teclas  para  Jos  distintos  colores,  jumo  con 
los  símbolos  indicativos  que  aparecen  si  el 
comando  está  anidado  dentro  de  comillas. 

Ahora  intenta  que  salga  el  titulo  del  lis¬ 
tado  del  catálogo  en  amarillo.  Lista  el 
programa,  desplaza  el  cursor  a  la  línea  40 
y  colócalo  justo  detrás  de  las  primeras 
comillas  en  dicha  sentencia.  A  continua¬ 
ción  pulsa  las  teclas  “shift1*  y  TNST/DEL 
v  teclea; 

CTRL  8 

Pulsa  la  tecla  "Return'h  Debe  de  apare¬ 
cer  un  t invertido  como  el  primer  carácter 
que  será  imprimido.  (Ver  el  Listado  2)* 


Todo  lo  que  siga  a  continuación  será  en 
amarillo  hasta  que  se  cambie  a  otro  color 
o  se  pulsan  las  teclas  mn/stop  y  restore. 

Ahora  vamos  a  convertir  las  cabeceras 
de  tas  columnas  en  verde  claro. 


Siguiendo  el  procedimiento  anterior,  se 
modifica  la  línea  52  para  que  incluya  un 
LOGO  ó  como  el  primer  carácter  que  será 
imprimido.  Dado  que  así  se  modifica  el 
color  imprimido  a  verde  claro  hasta  que  se 
vuelva  a  modificar,  vamos  a  probar  aña¬ 
diendo  otro  carácter  de  color  en  la  línea 
70.  Esto  modificará  el  color  de  toda  la 
salida  del  programa  (el  mismo  listado  del 
Catálogo).  ¿Y  el  color  dan? 

Lsta  inserción  tendrá  que  incluir  unas 
comillas  iniciales,  CTRL  4,  y  unas  comi¬ 
llas  finales.  La  Linea  70  quedará  de  la 
siguiente  forma: 

70  PR1NT“( reverse  shift-*  )”N,P$ 

No  debe  de  quedar  un  espacio  entre  las 
comillas  y  el  carácter  invertido.  Si  lo 
hubiera,  el  espacio  también  sería  impri¬ 
mido,  dejando  las  columnas  imprimidas 
fuera  de  alineación. 


Gama  de  Colores 

Para  poder  ver  todas  las  combinacio¬ 
nes  de  colores  disponibles  en  el  C-64, 
teclea  un  programa  corto  (Listado  3)  des¬ 
pués  de  salvar  el  programa  de  Listado 
Catalog,  El  programa  presentado  en  e! 
Listado  3  ejecutará  una  serie  de  bucles. 
Sin  embargo,  estos  bucles  son  For...  Tú 
...Next.  de  los  cuales  hablaremos  en  otro 
artículo. 

El  mes  que  viene  hablaremos  del  con¬ 
trol  de  la  salida  del  programa,  teniendo  en 
cuenta  de  que  ésta  puede  ocupar  más  de 
una  pantalla,  y  de  dirigir  la  salida 
haciendo  que  el  ordenador  haga  pre¬ 
guntas. 


LISI  ADO  J.  PROGRAMA  QUE  DEMUESTRA  TODAS 
LAS  COMBINACIONES  DF.  COLOR  POSIBLES  EN 
EE  C-64 


10  REM#**  MUESTRA  BE  COLOR  #** 

20  PR I NT “ [ CLR ] " : REM#  BORRA  LA  F’HNTAL 
LA 

39  FORB-0TO1S:REM#  CADA  UNO  DE  LOS  1 
6  COLORES 

40  PÜKE53280..  B  :  REH#  ALTERA  LA  MENOR  I 
A  PARA  VISUALIZAR  EL  COLOR 

50  FÜRS~0TÜ15 : REM*  CADA  ONO  DE  LOS  1 
6  COLORES 

60  P0KE53281 > S : REM*  ALTERA  LA  MEMORI 

A  PARA  VISUALIZAR  EL  COLOR 

65  FRINT"CCLR]" ■ REM*  BORRA  PANTALLA 

70  FORP=0TÜ15 : REM*  CADA  UNO  DE  LOS  1 

6  COLORES  DE  IMPRESION 

80  P0KE646.-  P  :  REM#  ALTERA  LA  MEMORIA 

PARA  VISUALIZAR  EL  COLOR 

90  PR I NT" [ HÜM I C 1 0CR3RU I [ 5CRSRR I CRV30H ] 

[ 75PC ] COLOR [ SPC 1  BORDE [ SPC ]  =  "B" C CRSRL 1 
[ 1 0SPC 1 1 RVSÜFF ] " 

92  PR I  NT " [ HÜM ] í 7CR3RB I [ 5CRSRR 1 1 RVSÜN ] 

1 4SPC  ]  COLOR  [  SPC  3  PANTALLA  L'  SPC  3  = "  S "  C  CRSRL  I 
[10SPC K RVSOEF ] " 

94  PR I  NT " [ HÜM j [ 1 3CRSRD ] [ 5ÜRSRR ] 1 RVSAH ] 
í 7 SPC 1  COLOR [ SPC J TEXTO  í SPC ]  = " P+ 1 " [ CRSRL ] 

[ 1 0SPC I C  RVSQFF  J " 

100  PORA- 1 TO250 : NEXT : REM#  PAUSA  PAPA 
FRENAR  EL.  PROGRAMA 
110  NEXT 
120  NEXT 
130  NEXT 
140  END 


Te 

puedes 

convertir 

en 

un  mago 
del 
color 
si  aprendes 
los  códigos 
de 

las  teclas 
en 

el 

Commodore 

64. 
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Atajo 

hacia  el  color 


Si  no  tienes  el  manual  a 
mano,  puede  resultar  muy 
pesado  tener  que  recordar  y 
utilizar  ios  códigos  de  color. 


POKH  52381,0.  Fenomenal;  la  pantalla 
se  vuelve  negra  si  intento  utilizar  el  color 
en  el  Commodore  64.  No  va  muy  bien: 
quizás  un  gris  oscuro  funcionase  mejor. 

Lo  único  que  tengo  que  hacer  es  un 
“Poke11  con  el  código  correcto  en  la  posi¬ 
ción  53281  y  puedo  cambiar  en  seguida  el 
color  de  fondo  de  3a  pantalla.  F.l  problema 
que  tengo  es  que  la  lista  de  los  códigos  de 
color  está  en  el  manual  del  usuario  que  se 
ha  quedado  en  casa. 


lie  llevado  el  ordenador  y  la  grabadora 
Datassete  a  casa  de  un  amigo  para  ense¬ 
ñarle  un  programa  del  cual  estoy  muy 
orgulloso.  La  grabadora  me  ha  permitido 
cargar  el  programa,  pero  estoy  utilizando 
la  televisión  de  mi  amigo  y  el  color  es 
horrible.  La  combinación  de  color  que  vo 
había  pensado  en  casa  funcionaba  muy 
bien  con  mi  monitor.  Aquí,  resulta 
horrible. 

Ahora,  desesperado,  lo  intento  con  otro 
ilPoke’\  ¡y  la  pantalla  queda  totalmente 
cu  blanco!  Además,  mi  mente  también  lo 
está  y  el  hecho  de  que  mi  amigo  se  esté 
riendo  a  carcajadas  no  me  ayuda  en  abso¬ 
luto,  Y  de  repente  me  doy  cuenta  de  lo  que 
ha  pasado;  el  último  “Poke1’  ha  con  ver¬ 
tid  o  el  fondo  en  el  mismo  color  que  el  de 
los  caracteres.  Si  se  representan  caracteres 
negros  sobre  un  fondo  negro  demuestra 
mucho  negro  y  muy  poca  inteligencia. 

Al  final,  con  unos  cuantos  “Pokes’1’  salí 
airoso  del  problema  pero  me  costó 
trabajo. 


Cantidad  de  Combinaciones 
de  Color 

Existen  16  colores  para  el  borde  alrede¬ 
dor  de  la  zona  de  impresión  en  la  Pan¬ 
talla,  16  colores  para  el  juego  de  caracte¬ 
res  y  16  para  el  fondo.  Sin  contar  con  el 
uso  del  mismo  color  para  el  fondo  y  el 
juego  de  caracteres,  existen  16  X  16  X  15,  o 
3840  diferentes  combinaciones  de  color 
disponibles  en  el  Commodore  64.  Para 
probarlas  todas,  tendríamos  que  hacer 
muchos  *Tokes”  en  las  posiciones  especí¬ 
ficas  de  memoria. 

La  solución  más  sencilla  era  la  de  escri¬ 
bir  un  programa  de  utilidad  que  pudiera 
formar  parte  de  todos  los  futuros  progra¬ 
mas  de  aplicaciones.  Después  de  Lodo, 
una  máquina  de  64 K  dispone  de  suficiente 
memoria, 

Una  cosa  era  cierta;  yo  no  quería  tener 
que  hacer  el  esfuerzo  de  acordarme  de 
nada.  Muchas  veces  he  utilizado  progra¬ 
mas  intensamente  durante  unas  semanas, 
y  luego  he  pasado  a  otros  proyectos 
durante  unos  meses  para  volver  después  al 
programa  original.  De  repente,  sería  inca¬ 
paz  de  recordar  que  este  programa  util¬ 
izaba  el  Control  W  para  que  toda  la  salida 
se  desviara  a  la  impresora  de  40  columnas. 
La  impresora  se  quedaría  sin  hacer  nada, 
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y  la  única  solución  sería  encontrar  la 
documentación  original  o  revisar  el  pro¬ 
grama  todas  las  veces  necesarias  para  ver 
cómo  funcionaba. 

El  Programa 

El  programa  "Colocación  de  Colores" 
del  Listado  I  está  diseñado  para  facili¬ 
tar  el  cambio  de  colores  del  borde,  el 
fondo  y  el  juego  de  colores.  Todos  los  16 
colores  están  presentados  al  lado  de  los 
códigos  correspondientes,  y  el  ordenador 
le  pide  al  usuario  que  haga  su  selección.  Si 
el  usuario  iniroduce  un  código  que  quede 
fuera  de  los  limites  correctos,  aparece  bre¬ 
vemente  un  mensaje  de  error,  se  vuelven  a 
presentar  los  colores  y  se  repiLe  la  pre¬ 
gunta.  El  programa  también  evita  que  los 
colores  de  fondo  y  los  del  juego  de  carac¬ 
teres  sean  iguales* 


Cuando  se  introduce  el  código  correcto, 
entra  automáticamente  en  la  posición 
correcta  mediante  un  “Pake’C  Por  lo 
tanto,  la  selección  del  color  se  imple  menta 
inmediatamente,  y  el  ordenador  le  pre¬ 
gunta  al  usuario  si  resulta  satisfactoria.  Si 
la  respuesta  es  afirmativa,  se  procede  con 
el  siguiente  parámetro;  de  no  ser  asi,  se 
repite  la  operación  anterior  hasta  que  el 
usuario  quede  satisfecho. 

El  programa  iraia  los  tres  parámetros 
de  colores  de  la  misma  manera,  y  al  com¬ 
pletarse  e!  último,  el  usuario  tiene  la  opor¬ 
tunidad  de  repetir  todo  el  proceso.  No 
hace  falta  que  salga  el  programa  hasta  que 
el  usuario  este  totalmente  satisfecho. 

El  listado  del  programa  está  numerado 
a  partir  de  la  línea  9000*  Lo  diseñé  así 
para  usarlo  como  subrutina  para  futuros 
programas,  en  los  cuales  se  colocaría  des¬ 


pués  del  resto  del  programa.  Antes  de 
escribir  un  programa  nuevo,  se  carga 
“Colocación  de  Colores"  desde  la  cinta  ^ 
se  inicia  la  programación. 

En  algún  punto  del  programa  nuevo, 
una  sentencia  GOSIJB  9010  le  propor¬ 
ciona  al  usuario  la  oportunidad  de  fijar 
los  colores.  Evidentemente,  la  sentencia 
GOSUB  se  podría  convertir  en  GOTO  si 
la  última  linca  del  programa  "Colocación 
de  Colores"  se  modificara  a  otra  sentencia 
GOTO  en  vez  de  "RelunTL 

Por  último,  este  programa  está  escrito 
en  Basic  y  utiliza  varias  variables  muñe  ri¬ 
cas  y  de  "si ring".  Una  forma  sencilla  para 
evitar  que  "Colocación  de  Colores" 
estropee  el  programa  si  dicho  programa 
utiliza  las  mismas  variables  (por  ejemplo, 
A$)  es  llamar  "Colocación  de  Colores" 
antes  de  que  el  programa  utilice  dichas 
variables. 


► 

9000  REM  FIJ MR  LOS  COLORES 

9230  E0RA=  1 T01000  :  MENTA  :  A  070  A  PIFA 

9010  C=1  - 

9240  R- 1 NT ( R  > 

9020  Bí= "  C SPC  1  QUE  í 8PC  J HUMERO í  SPC  ]  HE t SF'C  1  r 

925G  ONCGOTO9260.'  9270..  9290 

OLOR  C  SPC  ]  SU  I  ERES  [  SPC  J  PARA  t  SPC  3 " 

9260  P0KE5328ÍL  H  :  OOTO9350 

9030  Cí— " EL [ SPC 3 BORDE . . ? " 

9270  IFFEEK < 646  > =RG0T 09320 

9040  Df =" EL t SPC] FONDO. . ?" 

9280  PQKE5328 1 , A : 00709350 

9050  E$= " LOS [ SPC ] CARACTERES . . ? " 

9290  I FA=PEEK < 5328 1 ) -240GOTO9320 

9060  REM  VISUALIZAR  LAS  OPCIONES  DE 

9300  P0KE646 , A 

COLORES 

9310  00709350 

9070  F'R  I NTCHRÍ  <  1 4  7  >  :  F OR A=Ü T Ü 1 5 

9320  PRI  NT 11  REPITALO.  .  . ELE SPC] FONDO! SPC ]V 

9080  I Ffl>91  HEHF'R  I  NTTflB  <  3 >  .  A , 

1  SPC  ]  L.  OS  E  SPC  ]  CARACTERES  [  SPC  1 H0  " 

9090  I FA  1 0THEHPR I  NTTñB  ( 4  >  A 

'•'ti'  l  . 

9330  PR I  NT " PUEDEN C SPC ] TENER I SPC ] EL [ SPC ] M 

9 1 0O  PRINTTRB <  1  8 >  .■  CHRí  '•  i 8 > ; 

I 3M0 [ SPC ] COLOR. " : FORA=1TO3000 ■ MENTA 

9 1 1 0  FORB=0TO 8 'PRI NT C HRÍ < 32 » .  NEX TB : 

9340  GOTO 9060 

PRINT : NEXTfl 

9  350  PR  I  NT  "  E  S TÑSE  SF'C  ]  S AT I SFE C H 0 ?  C  SPC  1  < 

9120  FÜRñ“0TO15 ¡ FÜR£=1TÜ7 

S/M) *' 

9130  POKE55306+B+<  49* <  fi+ 1  >  ,  ñ 

9360  INPUTHÍ 

9149  NEXTE = NEXTH 

• 

9370  I Fñí = " S “ T  H E N  9  3 9 0 

9 150  PRI N T : PR I NT  =  PR I NTSPC C 2 > , C H R * ( 1 8 

9380  Ü0TO9060 

);Bi 

9 3 9 0  0 N C G 0 T 0 9 4  y  Ü .941 y . 9  4  2 y 

9160  OHCGO T 09 170,91 80 . 9 1 90 

9400  C - 2  0 0 T 0 9 86 8 

9170  F'R  I H T  S PC  <  9  >  ¡  CHRí  é  1 8  )  :  C í  :  0 Ü  T  0920 

9410  i ;  -  3 : 0 0 T 0 9 8 6 0 

0 

9428  PR  I  NTCHRÍ  ( 147  >  i  "Sl[  SF'C  ]  ESTRS  i  SPC .]  S 

9180  PRI N T S PC ( 9 > CHRÍ <  1 3 >  -  Di  *  G 0 T 0 920 

0 

9 1 90  PR  1  NTSPC  <  6 >  :  CHRÍ  í.  1 8 >  ,  Eí 

RTISFECHOCSPC ] CON [ SPC ] LOS l SPC] COLORE 

9430  PR 1 NT" QUE í SPC ] HRS í SPC ] ESC 00 1 DO , 

9200  INPUTP  :  I  FFf>  1 5THENPRINT' Jj  DE  MUS  I  ÑD 

í SPC 3 ENTRA C SPC 3  <S>  .  11 

0 C SPC 3  mLTÜ " : OOTO9230 

9450  INPUTRÍ  I  F'RÍ- >l  S "  00T 094  70 

9210  IFflCOTHENPR  I  NT 11  JjENñSlHDüf  SPC  1 BR 

9460  GOT 090 1 0 

Tu"  00109230 

9478  PRINT "TÉRNIHR DO" 

9220  óOT 09240 

► 

9480  RETURN 
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Cómo  exprimir  el  jugo 
a  las  teclas  de  funciones 


Si  has  estado  buscando 
un  método  para  definir 
las  teclas  de  funciones,  para 
satisfacer  tus  propias  nece¬ 
sidades,  este  programa  te 
permite  hacerlo  con  facilidad. 


Cuando  cu  miraste  tu  Cqmmodore, 
seguramente  tenías  una  duda  subte  las 
ícelas  de  funciones,  A  lo  mejor  te  quedaste 
un  poco  decepcionado  la  primera  ve/,  que 
pulsaste  una  de  estas  teclas,  solamente 
para  descubrir  que  no  ocurría  nada. 

Yo  me  acuerdo  de  estar  buscando  por 
todo  el  manual  de  referencia  para  saber 


cómo  se  asignaban  las  funciones.  Descu¬ 
brí  que  las  teclas  de  funciones  son  muy 
fáciles  de  utilizar  en  los  programas  en 
Basic,  dado  que  se  pueden  introducir, 
como  cualquier  oiro  earacier,  pero  yo 
esperaba  más.  Yo  había  pensado  que 
podría  asignar  funciones  que  me  ayuda¬ 
rían  con  la  programación,  unas  funciones 


que  se  ejecutarían  como  si  formaran  parte 
del  sistema  operativo. 

Hay  un  método.  Sí  un  “string*'  predeli- 
nido  se  imprime  en  pantalla  cada  vez  que 
se  pulsa  una  teda  de  funciones,  cualquier 
función  puede  ser  ejecutada  mediante  la 
pulsación  de  una  sola  tecla. 

Por  ejemplo,  supongamos  que  se  impri¬ 
me  la  palabra  LIST  cuando  se  pulsa  la 
teda  FL  Al  pulsar  la  tecla  RETURN,  se 
listará  el  programa.  Si  la  tecla  RFiTURN 
se  hubiese  definido  como  parte  del 
"string'L  habría  sido  suficiente  pulsar  F1 
para  listar  el  programa.  De  modo  seme¬ 
jante,  mediante  la  pulsación  de  la  teda  F2 
se  podría  ejecutar  un  programa. 

Yo  me  doy  cuenta,  al  depurar  cienos 
programas,  que  estoy  tecleando  PRINT 
PLLK  (N),  constantemente,  cuando  N  es 
el  número  de  alguna  posición  de  memoria. 
Dado  que  los  controles  del  cursor  pueden 
ser  incluidos  en  los  ilstnng".  el  usuario 
puede  definir  un  “si ring’’  que  imprime 
PRINT  PELK  ()  y  devuelve  el  cursor  a  la 
posición  justo  después  del  paréntesis  de  la 
izquierda,  l  uego  lo  único  que  queda  por 
hacer  es  teclear  d  número  de  la  posición 


que  será  interrogada,  y  pulsar  la  tecla 
RETURN . 

Sin  duda,  cada  usuario  tendrá  su  propia 
idea  a  la  hora  de  elegir  la  función  que  será 
asignada  a  una  tecla  determinada.  Es 
cuestión  de  personalizar  mi  programa  a 
tus  propias  necesidades  y  definir  las  teclas 
de  la  manera  que  más  le  guste. 

Aunque  parle  de  este  programa  esta 
escrito  en  lenguaje  máquina,  no  hace  falta 
tener  ningún  conocimiento  de  este  len¬ 
guaje  para  poder  utilizar  el  programa  o 
definir  las  teclas  de  funciones  de  nuevo. 
Asi  que,  a  seguir  leyendo  y  que  las  teclas 
de  funciones  trabajen  para  ti. 


Usando  el  programa 

n  a  c  o  p  i  a  de  este  p  jo  gra  m  a  se  p  re  sema 
en  el  Listado  I  No  es  tan  largo  como 
aparece,  dado  que  no  hace  falta  teclear  las 
sentencias  RF.M.  F.s  importante  salvar 
una  copia  del  programa  antes  de  que  éste 
se  ejecute. 

Al  teclear  el  programa,  es  fácil  equivo¬ 
carse  con  las  sentencias  Data,  las  cuales 


contienen  el  programa  en  lenguaje  máqui¬ 
na.  Por  este  motivo,  he  incluido  una 
prueba  al  final  de  cada  semencia  Data.  El 
último  número  de  cada  sentencia  Data  es 
la  suma  de  Lodos  los  números  anteriores 
en  la  misma  línea. 

Cuando  d  programa  en  Basic  carga  el 
programa  en  lenguaje  máquina,  verifica  la 
prueba  en  cada  sentencia.  Si  no  con¬ 
cuerda.  el  programa  supone  que  uno,  o 
más,  de  los  números  de  dicha  línea  fue 
mal  tecleado,  y  a  continuación  se  imprime 
un  mensaje  de  error.  Fl  mensaje  de  error 
indica  exactamente  dónde  se  encuentra  la 
línea  incorrecta,  lo  cual  facilita  considera¬ 
blemente  la  ejecución  del  programa. 

Cuando  se  ejecuta  el  programa,  un  lis¬ 
tado  debe  aparecer  en  pantalla,  demos¬ 
trando  exactamente  cómo  se  definen  Eas 
teclas  de  funciones.  Después  de  unos 
segundos,  cuando  se  haya  cargado  el  pro¬ 
grama  en  lenguaje  máquina,  el  mensaje 
RLADY  aparecerá  en  pantalla.  Fl  pro¬ 
grama  en  Basic  debe  de  haberse  borrado 
de  memoria  automáticamente  mediante  la 
ejecución  de  una  sentencia  New. 

En  este  momento  las  teclas  de  funciones 


U  EEM  TECLAS  DE  FUNCION 
J  REN  VERSION  OfJHNfiimpE  64 

Z  REM 

■3  REN  POR  JOHN  TRNZINI 

4  REN  V  RON  MINBZOK 

5  REN 

6  REN 

?  REN** 

S  REN***  LISTA  DE  VARIABLES 

9  REN** 

10  EEN  T=FIHñL  DE  MAMQRIñ  ACTUAL 

1S  REN  L-  LONGITUD  TOTAL  DE  LOS  J'ST 
FINOS  DEFINIDOS  PARA  LAS  TECLAS  DE 
FUNCION 

¿A  REM  SM-  PRINCIPIO  DEL  PRi'iARANA  E 
N  CODIGO  MAQUINA 

25  REN  SS-  PRINCIPIO  DE  LOS  'STEINÜ 
S  DEFINIDOS  PARA  LRí  TECLAS  HE  FONO 
ION  ~ 

30  REN  PP=  PUNTERO  A  LOS  ■"STRINGS-' 
35  REN  3F'~  PUNTERO  A  LOS  'STPINGS* 
DURANTE  SU  CARGA 

30  REM  UNO  DE  ^CHECKSUrT  (COMPRO 
DACION) 

40  REM  C-  CONTADOR  PARA  DETERMINAR 
SI  EL  BYTE  LEIDO  DE  UNA  ETIQUETA  DAT 
H  ES 

45  REM  SU*  SUMA  DE  LOS  BYTES.  UTILI 
ZADO  PAPA  COMPROBAR  LOS  DATA'1  S 
50  REM  CH=  LEXTURA  HE  SUMA  DE  LOS.  D 
ATAS 

55  REM  B=  BYTE  LEIDO  DE  LEt  SENTE Hr" I 
R  DATA 

96  REM 

97  REM** 

9S  REM***  CALCULAR  EL  FIN  DE  MEMORIA 
V  RESERVAR  EL  ESPACIO  PARA  LOS  'STR 
INGS" 

59  REM** 

100  T»PEEK<33>+256*FEEKÍ36> 

110  P0KE56,  PEEKX4S3+2 
120  P0KE52j  PEEK<  56) 

130  PRINT" C CLRI TECLAS [SPOT DE C 3PC IFUN 
CION"  PRINT 
196  REM 


197  REM** 

198  REM***  DEFINIR  LOS  "STR INGS'1  E  I 
MPRI MIRLO 

199  REM** 

200  DIMFí  Ci2) 

210  F$( 1 >="LIST" 

220  Ff <2 ) * " LORD " +CHRS f 34 ) 

230  F$Í3)  =  "RIJN" 

340  Ft  (.  4  )  =  "  8  A  VE "  +CHRÍ  ( 34 )  +  «»■  " 

250  F  t  ( 5  )  *  -  PR I  NT  PEEK  C  £  SPC  H4SPC]  >  [  6CRS RL1" 

260  Ff  ( 6)  =  "0PEN15.-  8.-  15.  N+CHPÍ<34) 

270  F* C  7 >  =  "PR I NTFRE  ■: 0 >  " 

230  Ff ( 8)="CL0SE15" 

290  Ff ( 9)="GOTO" 

300  F$( 10)="GOSUE " 

310  F$ ■  11)= 11  RETURN" 

320  Ff  í 12>=MP0KE" 

330  FOR [=17012 

340  PRINT  "F"+F!I  GHTfCSTRÍ  (  I)  .  LENÍSTRf 

U)>-l)  +  "i:S'PC1  =  tSPC]"J 

345  PR  I  NT  CHRÍ  C  34  .■  +FÍ  <  I  ) +CHP$  í  34  ) 

350  NEXTI 

396  REM 

397  REM** 

398  REM**  DETERMINA  LA  DIRECCION  DE 
COMIENZO  DE  LOS;  "STR  INGS"'  V  EL  PRO  GR 
AMA 

399  REM**  HE  LENGUAJE  MAQUINA 
4tí0  L=0 

410  FORI=1T01£ 

420  L=L+LEN<  F$< 1 ■ > 

430  HEXTI 

435  I FL> 23 1 T  HENPR I NT " C  R VSO H ] "3TRI NG  3 
[ SPC  I DEMAS I  ADO I SPC  I LARGOS 11  '  00  70800 
440  3M=T-132 
450  SS=T-L- 156 
496  REM 

43 7  REM** 

4 38  REM***  ALMACENAR  STR INGS  V  PUNTE 
ROS 

499  REM** 

580  F,c:,=S8  SP-SS+12 

Sigue 
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COMO  EXPRIMIR  EL  JUGO  A  LAS  TECLAS  DE  FUNCIOHES 


L'stiin  lisias  para  usar.  Por  ejemplo,  si  se 
pulsa  la  teda  FL  se  imprimirá  la  palabra 
]  IS  I .  Las  fundones  de  F9  a  FE2  .se  obtie¬ 
nen  medíame  la  pulsación  de  la  tecla 
Commodprc  y  una  de  las  teclas  de 
funciones. 

Será  más  fácil  iniciar  la  ejecución  del 
programa  si  queda  bien  entendido  un 
punto  importante  sobre  la  operación  del 
programa  en  Basic.  Lo  primero  que  hace 
c!  programa  es  trasladar  el  puntero  del 
final  de  memoria  hacia  abajo  para  prote¬ 
ger  un  bloque  de  memoria  donde  se  alma¬ 
cenará  el  programa  en  lenguaje  máquina. 

Si  ha  habido  un  error  de  tecleo  en  una 
sentencia  Data,  el  programa  lo  detectará 
al  calcular  la  prueba,  y  bifurcará  a  la  línea 
80b.  fin  la  línea  800  el  programa  restau¬ 
rará  el  puntero  del  final  de  memoria,  lo 
cual  devuelve  toda  la  memoria  al  sistema 
operativo.  Si  no  lo  hiciera,  el  programa  no 
dispondría  de  la  memoria  suficiente  para 
ejecutarse  correctamente  la  próxima  vez. 


Sin  embargo,  si  una  semencia  Basic  está 
mal  tecleada  (provocando  un  error  de  sin¬ 
taxis),  el  sistema  operativo  parará  el  pro¬ 
grama  en  seguida,  sin  restaurar  nada.  Si  se 
ejecuta  una  semencia  GOTO  800  justo 
cuando  se  para  el  programa,  no  será  nece¬ 
sario  apagar  el  equipo,  volver  a  encen¬ 
derlo  y  cargar  el  programa  de  nuevo.  Por 
supuesto,  este  problema  no  surgirá  una 
vez  introducido  d  programa  tal  y  como  se 
presenta  en  el  listado. 

Notarás  que  al  pulsar  las  teclas  run/stop 
y  resto  re,  el  programa  queda  desactivado, 
lis  así  porque  el  sistema  operativo  res¬ 
taura  el  vector  de  interrupciones  a  .su 
valor  original.  Id  programa  vuelve  a 
arrancarse  medíanle  la  ejecución  de  un 
SYS  O. 

Cuando  el  usuario  ya  está  seguro  de  que 
se  ejecuta  el  programa  correctamente,  las 
líneas  61  I  a  618  pueden  ser  eliminadas, 
junto  con  el  último  dalo  de  cada  sentencia 
Data,  lista  es  la  parte  del  programa  rela¬ 


cionada  con  la  prueba.  L1  programa  cu 
lenguaje  máquina  lardará  la  mitad  de 
tiempo  en  cargarse  una  vez  eliminada  la 
prueba,  Fs  importante  eliminar  también 
¡a  última  coma  de  cada  sentencia  Dala. 

I  jado  que  el  programa  en  lenguaje 
máquina  permanece  en  memoria  después 
de  que  se  haya  borrado  el  programa  en 
Basic,  se  pierde  una  pequeña  cantidad  de 
memoria.  La  memoria  libre  queda  redu¬ 
cida  por  144  bytes,  más  un  bytc  porcada 
carácter  definido  en  los  11  si  rings". 

Volviendo  a  definir 
las  Tedas  de  Funciones 

as  teclas  de  funciones  TI  a  F!2  se  defi¬ 
nen  en  las  líneas  210  a  320,  Un  “array" 
de  “st rings"  llamado  F$  contiene  un 
“string”  relacionado  a  cada  tecla  de  fun¬ 
ción.  F${  I )  es  el  "si  ring"  definido  para  M 
;  F$(2)  es  e]  “string”  definido  para  F2t  etc. 


CrHMinuacitm  Usado  I 


BE  FIN  BE  MEMORIA  EN  CASO  DE  ERROR 

799  REM*# 

800  PQKE56  .i  T /25S 

810  PQKE55, T-25G*PEEK<56> 

820  END 
336  REM 
937  REM#* 

988  REM#*#SUBRUTINfi  PRRFi  ALMACENAR  L 
OS  'ST RINGS'  HE  F$(I> 

Oj“íQ  pe 

1000  F'OKEPP ,  SP-SS :  PP=PP+ 1 
1005  IFFÍ í I >=" "THEN1060 
1010  FOR J ■ 1 TOLEN  í  Fí ( I ) ) 

1030  P0KESP , RSC í M I Di  í F$  C I ) , J , 1 ) > 

1040  SF=SP+1 

1059  NEXTJ 

1060  P0KESP,  0 
1070  SP=SP+1 
1080  RETURH 

8996  REM 

8997  REM** 

8998  REF1***DATAS  DEL  FROGRRMA  HE  LEH 
GUAJE  MRQÜINfi 

8999  REM** 

9000  DRTA120,  165,250..  141,21,3,  165,24 
9,24, 105,21, 144, 3, 288, 21. .3, 141 ,20,3, 


5 1 0  F0 P I  =  1 T07 8 T EP2 ' G0SU E 1 6©0 : N E  XT I 
52:m  F OR I  ==  2T03 STE'-'2  ■  G0S UB 1 000  •  NEXT 1 
5 3 0  POR  I ~9 m 1 2  i í O SUE 1 00 0  NEX T I 

596  REM 

597  REM** 

598  REM***  HHRGfiP  Lfl  RUT I MR  DE  CODIC 
0  riRCJU  I  HA 

599  REM** 

600  FGR1=SM  F'03M+ 1 31 

610  REflíB 

611  SU=SU*B 


6 1 3  1  F'.,<  1 9  AND I C-  SM+ 1 3 1  > THEN620 

614  PEfiDCN 

61,5  í  Fr  H»SUTHEN(.‘*0  SU=0  :  GOTO620 

6 1 6  pR  1 H T  r R IM™  CR VS0N 3  C S PC 3 ERRO R C SPC 3 E 
N I'  3P0 1 SEMTENC 1  AS  i  SPC  3  DRTR " 

6 1 7  F'R  1  NT "  [  FíVSÜN  J EN L  1 L  R 1 <3PC 3 L I MEA 

PEE!  (.6  H-::Lii6*P£EK<64;> 

b  18  GQ'T  OS® 

888  Píii  '.  !  ,B 


696  REM 

697  REM** 

698  REM***PREPARRC I OH  DEL  PROGRAMA  D 
É  LENGUAJE  MAQUINA 

699  REM** 

700  POKE250,  SM/2'56 

710  PQKE249,  SM~256*PEEK  <  250  i1 
715  P0KE248, 76 
720  P0KE252, 38/256 
730  P0KE251 ,  SS“256*F’EEKÍ 252) 

740  P0KES49, 9 

750  PGKE55 , PEEK< 25 1 ) : P0KE56 , PEEK <  252 


90 1 0  DRTR96 ,165,198, 208 , 92 , 1 65 
40,91,169,0, 133,254, 164,253,24 
6, 2794 

9020  DRTR201 , 6, 240, 17,202,201,! 
1 2 , 202, 201,4, 240 ,7,1 69 , 255 ,141 


9030  DRTR43, 5¡ 
,2,201,1,208,! 
2,  162 

9040  DRTA8,  13¡ 
240,30,  141,12: 


760  P0KE51 ,  PEEK < 251 >  :  P0KE52.,  PEEF; 


761  P0KET- 1 3 , PEEK  <  789 > 

762  POKET- 1 4 , PEEK (788 ) 

770  SVS248 

780  NEW 

796  REM 

797  REM** 

798  REM***REST AUPAR  EL  ACTUAL 


9050  DAT R 1 77 
0,232, 134, 19: 
169,2963 
9060  DRTR 1,1: 
65, 197,201,3 


'ALOR 
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Para  volver  a  definir  una  teda  de  función, 
se  modifica  la  línea  de  programa  que 
corresponde  a  la  tecla  de  función  que  se 
cambiará. 

Por  ejemplo,  la  línea  210  define  el 
^string"  para  F  I : 

210FS(l)=lbLÍST” 

Si  el  usuario  prefiere  imprimir  la  pala¬ 
bra  LOAD  cuando  se  pulsa  la  léela  Fi ,  la 
línea  210  se  modifica  a: 

2ÍQF$(  l  j=“LOAD" 

Es  importante  incluir  las  comillas,  dado 
que  FS  es  una  variable  de  cadena 

Cualquier  ‘‘string11  válido  puede  ser 
asignado  a  las  ledas  de  funciones,  inclu¬ 
yendo  los  “strings”  que  contienen  los  con¬ 
troles  del  cursor.  Sin  embargo,  resulta  un 
poco  mas  complicado  asignar  los  caracte¬ 
res  Reí  uní  y  las  comillas  dentro  de  un 
sl  si  ring”.  Para  incluir  un  carácter  Return 
dentro  de  un  “string",  se  añade  CHRSÍ 13) 
al  “string”  (13  representa  Return  en  el 
código  ASCII).  Por  ejemplo,  si  el  usuario 


■  “A  V"  Vu  VÓ 


desea  que  un  programa  se  ejecute  automá¬ 
ticamente  cuando  se  pulsa  la  teda  F3_  la 
línea  230  se  tiene  que  convertir  en: 
230F$(3)=“RUN”  -  CHR$(13) 

El  retorno  será  ejecutado  justo  después 
de  que  se  imprima  RUN,  como  si  la  tecla 
Return  hubiese  sido  pulsada  en  el  teclado. 
De  forma  semejante,  las  comillas  se  pue¬ 
den  incluir  dentro  de  un  “string”  mediante 
el  uso  de  CHRSí  34). 

La  máxima  longitud  tota!  de  todos  los 
"string”  asignados  a  las  tedas  de  funcio¬ 
nes  es  de  23  1  caracteres,  Si  se  asignan  más 
de  231  caracteres,  el  programa  imprimirá 
un  mensaje  de  error  indicando  que  los 
'"string”  son  demasiado  largos.  En  este 
momento  es  una  simple  cuestión  de  editar 


las  lineas  apropiadas  >  volver  a  cjecular  e! 
programa. 

Hay  que  Lener  en  cuenta  que  el  pro¬ 
grama  se  borra  de  la  memoria  después  de 
ejecutarse.  Por  lo  tanto,  es  importante 
salvar  el  programa  antes  de  que  se  ejecute 
si  se  requiere  una  copia  de  éste  con  las 
recién  definidas  funciones. 

A  continuación  se  presenta  una  breve 
descripción  de  cómo  funciona  la  sección 
del  lenguaje  máquina  del  programa. 

La  técnica  general  que  se  emplea  para 
activar  las  tedas  de  funciones  es  bastante 
sencilla.  Se  genera  una  interrupción 
(hardware  interrupt)  sesenta  veces  por 
segundo  que  obliga  al  sistema  operativo  a 
realizar  ciertas  funciones  internas,  como 


6 1 7  PR I NT N  [ R7S0N ] EN C SFC  JLRÜSPC JL I NEfl 
,r ;  PEEK  C  63  >  +256*PEEK  (64 ) 

618  00X0800 
620  PQKEI,B 
630  NEXTI 

700  PÜKE2,  SM/256 

710  PÜKE1,SM-256#PEEK<2> 

720  F0KE252,SS/256 

730  PÜKE251 SS-256*PEEK  f252> 

740  PGKE649,  3 

750  P0KE55,PEEKÍ251 > : FÜKE56 - PEEK <252 


100  T =PEEK ( 55  >  +256#PEEK  <  56  > 

110  P0KE56 ..  F'EEK  <  46  >  +2 
120  PÜKE52,  PEEKC56  > 

130  PRINT " [ CLP J TECLRS [ SFC 1 DE í SPC ] FUH 
CI0M": PRINT 
200  D  IMPÍO  2) 

210  Fía>  =  "LIST" 

220  Fí  <  2  > = H  LORD  "  +CHRÍ  ( 34 ') 

230  F$<3>“NRUN" 

246  Fí  <  4  >  =  M  SRVE  "  +ÜHRÍ  ( 3  4  >  +  "  H  :  ü 

250  Fí  <.  5 )  = "  PR I NTPEEK  <  [  SPC  ]  [  4SPC 1  >  í  6CRSF: 


760  FÜKE5 1 , PEEK < 25 1 >  P0KE52 - PEEK < 252 


770  SVS0 
788  NEW 

800  PÜKE56,T/256 

810  P0KE55.T-25S*PEEK<56? 

820  EMU 

1 000  POKER P ,  SP-SS  =  PP-PP-f  1 
1005  IFFÍ ( I "THEN1060 
1010  F0RJ=lT0LEN(Fía>> 

1 030  PÜKE3F , RSCC M 1 Bí < Fí  < I > 

1040  SP-5P+1 

1050  NEXTJ 

1060  P0KE3P  , O 

1070  SP=SP+1 

1089  RETURN 

9000  DRTR120,  165,2, 141 ,20 
,  105,21044,3,  238, 21. .3.  141 


260  Fí  <6>-J,ÜPENl  5, 8, 15,  M+CHR$Í34> 

270  Fí f 7)  =  nPRINTFRE<0> 11 
280  F$(8)~J,ÜL0SE15M 
290  FíC9)  =  ,,G0Tü,t 
300  Fí  <  18>=I,G0SUB" 

310  Fí< 1 1 )=" RETURN" 

32G  Fí  <  lá)*1,P0KE" 

330  FORI~1TOÍ2 

340  PR  I  NT 11 F  "  +R I GHT í  <  STRÍ  <  I  > ,  LENCSTRí 
a)>-l)  +  M[8PC]  =  [SPC]"; 

345  PR I NTCHRÍ  ( 34 )  +F í ( I  >  +CHPS <  34  } 

350  NEXTI 
400  L=0 

418  F0RI= 1TÜ12 
420  L=L+LEN<Fía  .)) 

430  NEXTI 

435  I  FL>23 1 THENPR I  NT  "  C  RVSON  3  'STRINGS 

OSPC3BEMRSIRDOCSPC3LRRGOSM  -  GQTO800 

440  SM=TO  20 

450  SS“T-L*144 

508  PP”SS : SP=SS+12 

510  F0RI=1 T07STEP2 : GÜSUB1000  NEXTI 

520  F0RI=2T08STEP2 ¡ GOSUB1080 : NEXTI 

530  FDR I =9X0 1 2 : GOSUE 1 000  NEXTI 

600  FORI=SMT03M+1 13 

610  RERDB 

611  SU=3U+B 

612  C=C+1 

613  I FCO 1 9RND I O < S M+ 1 1 3 > THEN620 

614  RERBCH 

615  IFCH=SUTHENC=0 ■ SU*9 : GOTO620 

616  PRINT  :  PRINT "  [RVSON  ]  CS'PC  J  ERROR  [SPC  ilE 
N f  SPC  3  SENTENC I RS [ SPC ] BÑTÑ " 


9810  DÑTR83, 96, 165, 198,208,92, 165,25 
4,240,3, 169,0, 133,254, 164,253,24- 144 
■  56 

9028  BHTR2712, 162,3, 169,63, 197, 137,2 
40 , 1 3 ,56, 233 , 8 , 202 06, 246 ,  1 63  ■  255 . 1 4 
1,  128 

3O30  DRTR2, 2500 ■ 48 , 58  - 134 , 253 . 162,0 . 
173, 141,2,201 , 1,208,2, 162,4,201 ,2,20 


9040  DRT82 , 1 962  -  1 62 , 3  O 38 , 24  O 0 1 ■ 

■  205, 128 , 2, 240  30* 141 , 128,2- 168. 1 
251 , 163 

9050  DhTh 1 62 , 2488  - fi O 77 ■ 25 1 . 240 , 1 
57019,2 , 200  ■  232 ,  1 34 ,  1 98  ■  224  -  9 . 20 

41 , 132 

9068  DRTR253, 1 63 , 2363 . 1  O 33 , 254 . 7 
91 .234,889 
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c3  barrido  del  teclado  y  la  actualización 
dd  reloj  de  ti  culpo  real,  A!  interceptar 
esta  interrupción,  el  programa  en  lenguaje 
máquina  se  ejecuta  sesenta  veces  por 
segundo, 

Cada  vez  que  d  programa  se  eje  cu  La, 
comprueba  para  averiguar  si  una  de  las 
tedas  de  fu  liciones  ha  sido  pulsada.  Si  una 
teda  ha  sitio  pulsada,  el  "kcyboard  buf- 
fer"  {memoria  intermedia  dd  teclado)  se 
carga  con  Lodos  los  caracteres  dd  "string" 
apropiado  que  pueda  contener.  Id  na  vez 
que  el  sistema  operativo  haya  vaciado  el 
“kcybóard  buííer".  mi  programa  cargará 
el  "bufíer"  con  el  resto  del  "string"  hasta 
que  este  se  imprima  del  todo. 

El  Programa  en  Basic 

as  funciones  del  programa  en  Basic 
son  las  siguí  en  íes:  cargar  d  programa 
en  lenguaje  máquina  al  final  de  la  merruv 
ri a:  cargar  los  "siriugs"  justo  debajo  dd 
código  máquina;  inicial  izar  ios  punteros 
para  el  programa  en  lenguaje  máquina:  y 
proteger  el  programa  y  los  Ast rings"  dd 
resto  dd  sistema  operativo. 

Líneas  100  LIO,  Lstas  lineas  reservan  i  a 
memoria  suficiente  para  cargar  el  pro¬ 
grama  en  lenguaje  máquina  y  los  "strings" 


ca  i  n  b  i  a  n  d  o  e  1  p  u  n  1  e  rt  i  de  E  ¡  n  a  1  d  e  m  e  m  o  r  i  a 
para  que  apunte  a  512  bytes  por  encima 
dd  programa  en  Basic. 

Líneas  200  a  350.  Crean  el  "array"  KíÜ,  y 
se  imprimen  los  "st  rings"  relacionados 
con  cada  leda  de  funciones  para  recor¬ 
darle  al  usuario  cómo  han  sido  definidas. 

l  íneas  400  a  450,  hstas  lincas  calculan 
la  longitud  total  de  todos  los  "si rings".  Se 


comprueba  que  su  longitud  no  sobrepase 
de  los  231  caracteres.  Si  los  "si rings"  son 
válidos,  se  calen  tan  el  SM  (comienzo  del 
programa  en  lenguaje  máquina)  y  el  SS 
(comienzo  de  los  "se rings"). 

Líneas  500  a  530.  listas  líneas  cargan  los 
"strings"  v  una  tabla  de  punteros  para  los 
"st  rings",  comenzando  en  la  posición  SS, 

Líneas  601)  a  030.  I  I  programa  en  len¬ 
guaje  máquina  se  lee  a  partir  de  las  sen¬ 
tencias,  Data  y  se  carga,  comenzando  en 
la  posición  SM 

Líneas  700  a  780  Se  almacena  en  la 
memoria  un  puntero  para  la  rutina  de  i  ni¬ 
eta]  ización  del  lenguaje  máquina.  I  I  pun¬ 
tero  del  final  de  memoria  se  modifica  para 
que  apunte  al  principio  de  los  "strings", 
para  que  sólo  le  quite  al  usuario  la  canti¬ 
dad  de  memoria  necesaria.  I  I  programa 
.salla  a  la  rutina  de  i  nidal  i  /.ación  del  len¬ 
guaje  máquina,  y  a  continuación,  ejecuta 
una  sentencia  New. 

Lincas  800  820.  1.a  ejecución  llega  a  este 
pumo  sólo  s¡  luí  error  ha  tenido  lugar, 
como  por  ejemplo,  la  definición  de 
"strings"  demasiado  largos,  Se  restaura  el 
final  de  memoria  a  su  valor  original  para 
que  toda  la  metnoria  se  devuelva  al  sis¬ 
tema  operativo  antes  de  parar. 


1000  a  1080.  Lista  es  la  subrutina  que 
carga  un  "string"  Ir $( I )  en  la  memoria. 
También  se  carga  un  puntero  para  el 
"string"  en  una  tabla. 


Conclusión 

Este  programa  resulta  realmente  útil 
dado  que  cada  usuario  lo  puede  per¬ 
sonalizar  para  satisfacer  sus  propias  nece¬ 
sidades.  Si  el  usuario  dispone  de  una 
impresora,  por  ejemplo,  una  de  las  teclas 
puede  ser  definida  para  que  produzca  una 
salida  impresa  mediante  la  pulsación  de 
una  sola  tecla.  Algunos  de  los  comandos 
definidos  por  mi  resultan  útiles  solamente 
si  el  usuario  dispone  de  una  unidad  de 
discos.  F3  usuario  encontrará  que  este 
programa  resulta  muy  útil  si  lo  usa  para 
definir  las  funciones  que  emplea  con  más 
frecuencia. 
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QUIERE  TRABAJAR  EN  SERIO? 
NO  RETRASE  SU  PROGRESO  ! 
JUEGUE  CON  VENTAJA  ! 


LE  DESCUBRIMOS  NUESTRO  JUEGO 


PARA  SU 


CONTABILIDAD,  GESTION  STOCK,  BASES  DE  DATOS,  PRACTICALO,  MAILING 
PROCESO  DE  TEXTOS,  GENERADOR  DE  GRAFICOS  Y  SONIDOS,  VIC  ■  TREE, 
LAPIZ  OPTICO,  UTILITARIOS,  JUEGOS  Y  ...  MUCHOS  MAS  !  !  ! 

pídanos  información,  recibirá  un  PROGRAMA  VE  REGALO  y 
nuestro  extenso  catálogo. 


consejo  de  ciento,  563-565  barceíona-13 
telefono  93-231  95  87  apdo.  24.143 


fiase  de  datos 


tatos  cedidas  por  DEM  O 


Ha  se  de  datos 


VENTANAS  CBM  (iv) 


READY 

(del  chip  a  la  base  de  dates) 

(cont.) 


Por  Rafael  NAVARRO 


mm  ií  píe 

CBM-700 


Ficheros  de  Claves 

Los  ficheros  de  claves  convierten  a 
los  relativos  en  ficheros  indexados 
pues  los  primeros  son  como  un  directorio 
o  índice  de  los  segundos.  Cualquier  dato  o 
mezcla  de  datos  de  un  fichero  relativo 
puede  ser  controlado  por  un  fichero  de 
claves  permitiendo  así  obtener  a  través  de 
uno,  el  resto  de  los  datos  de  un  registro. 
Así,  por  poner  un  ejemplo,  conociendo  un 
nombre  se  obtiene  un  teléfono  y  cono¬ 
ciendo  un  teléfono  se  obtiene  una  direc¬ 
ción  o  cualquier  combinación  de  datos. 
Algunos  sistemas  permiten  utilizar  como 
índices  o  directorios  de  un  fichero,  datos 
no  contenidos  específicamente  dentro  de 
los  registros  del  fichero.  Esta  técnica  es 
sumamente  peligrosa  ya  que,  en  caso  de 
destrucción  del  fichero  de  claves  o  direc- 
torio,  se  hace  imposible  la  recuperación 
del  mismo.  Por  este  motivo,  MÉC/DOS, 
solamente  permite  utilizar  directorios 
basados  en  datos  internos  al  registro.  En 
caso  — improbable —  de  que  se  pierda  el 
directorio,  un  simple  comando  permite  su 
regeneración  automática  ya  que  bastará 


con  repasar  los  registros  del  fichero  rela¬ 
tivo  para  encontrar  (los  ficheros  de  claves 
disponen  de  un  descriptor  que  indica 
dónde  se  encuentran  los  datos  clave  para 
el  directorio)  los  datos  clave  y  reconstruir 
el  fichero  de  índices.  El  mismo  comando 
servirá  también  para  crear  nuevos  directo¬ 
rios,  no  previstos  en  el  análisis  inicial,  a 
medida  que  sean  necesarios. 

El  tratamiento  de  claves  incluye  las 
altas,  bajas,  búsquedas  y  barridos  de 
ficheros  de  claves.  Un  fichero  relativo 
puede  tener  tantos  ficheros  de  claves 
como  se  desee. 

Las  claves  de  los  ficheros  de  claves  no  se 
encuentran  en  la  ram,  si  no  que  están  en 
disco  y  es  allí  donde  se  ordenan  y 
registran, 

La  capacidad  máxima  de  los  ficheros  de 
claves  y  relativos  es  de  65535  registros. 

Ficheros  Tipo  Tabla 

La  gran  capacidad  y  el  alto  índice  de 
seguridad  de  los  ficheros  de  claves 
hacen  que,  para  grandes  ficheros,  y  con 
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unidades  de  diskeite(no  con  whinchéster), 
ia  velocidad  de  inserción  caiga  un  poco. 
Por  este  motivo,  MEC/DOS  dispone  de 
otro  sistema  de  archivo  que  mezcla  las 
características  estructurales  de  los  ficheros 
relativos  y  los  de  claves  con  una  velocidad 
de  trabajo  del  orden  de  centésimas  de 
segundo  para  cualquiera  de  las  operacio¬ 
nes  (borrado,  búsqueda  o  inserción). 

Los  ficheros  tablas  residen  en  disco  y 
son  cargados  enteros  en  RAM  cuando  son 
requeridos  por  el  programador.  L a  estruc¬ 
tura  de  s les  registros  puede  ser  definida 
con  todas  las  posibilidades  que  ofrecen  los 
ficheros  relativos,  pero  ofrecen  una  indis¬ 
cutible  ventaja  sobre  éstos:  intrínseca¬ 
mente  v  por  definición,  TODOS  LOS 
CAMPOS  SON  CLAVE.  Es  decir,  en 
cualquier  momento,  y  sin  ordenamientos 
previo  — en  centésimas  de  segundo — ,  se 
puede  acceder  a  cualquier  registro,  por 
cualquier  campo.  Y  no  sólo  eso:  es  posible 
obtener,  con  los  mismos  condicionantes 
de  tiempo,  una  lista  ordenada  del  fichero. 


utilizando  como  criterio  de  ordenación 
cualquiera  de  los  campos  del  registro. 
Esta  es  una  característica  única  hasta  el 
momento. 

Los  ficheros  de  tablas  residen  fuera  del 
cartucho  MEC/DOS,  ocupando  el  área 
disponible  de  memoria  del  sistema  7XX, 
pero  de  manera  totalmente  transparente 
al  usuario.  Dada  la  sencillez  de  manejo  de 
MEC/DOS,  un  programa  de  5K  puede 
realizar  un  proceso  relativamente  com¬ 
plejo,  de  modo  que  es  posible  tener  en 
memoria  tablas  por  un  volumen  aproxi¬ 
mado  de  55 K  con  un  acceso  directo  a  las 
mismas*  Si  a  esto  se  añade  el  hecho  de  que 
MEC/DOS  permite  empaquetar  {reducir 
la  ocupación  física)  tanto  campos  numéri¬ 
cos  como  campos  alfa,  se  comprende  la 
potencia  intrínseca  del  tratamiento  de 
tablas. 


Pantallas 

MLC/DOS  permite,  mediante  un 
sencillo  utilitario,  definir  panta¬ 
llas  de  trabajo.  Dichas  pantallas  pueden 
contener  gráficos  y  caracteres  alfabéticos 
simultáneamente.  La  idea  es  facilitar  la 
buena  presentación  de  los  paquetes  de 
programas.  Por  otro  lado,  el  generador  de 
pantallas  ofrece  la  posibilidad  de  definir 
partes  de  pantalla  como  zonas  de  trabajo 
sobre  las  cuales  se  presentarán  datos  o  se 
pedirán  datos  al  operador.  Asimismo,  es 
posible  definir  zonas  o  módulos  de  panta¬ 
lla  posteriormente  miscibies. 

Cada  una  de  las  zonas  de  trabajo  puede 
ser  definida  como  alfa,  alfa  solamente 
ASCO  o  numérica  y,  en  el  caso  de  las 
numéricas  se  permite  especificar  otros 
parámetros  tales  como  número  de  decima¬ 
les,  decimales  y  enteros  forzados  a  cero, 
signo,  etc.  Posteriormente,  la  pantalla  o 


FICHEROS  TABLAS 


COMANDO 

EXPLICACION 

VALORES  DE  OK 

TFIELD.  NF.  NC 

Asigna  el  campo  NC  como  clave  del  fichero 
NF  para  las  búsquedas  que  posteriormente 
se  efectúen  en  el  fichero. 

OK-  0:  correcto 

OK-  1;  comando  no  permitido 

OK-  5;  fichero  no  asignado 

OK  14,  NC  fuera  de  rango 

TROS,  NF,  VES 

Busca  en  la  tabla  NF  una  clave  igual  a  VES. 
Si  lo  encuentra,  se  posiciona,  permitiendo 
operar  con  el  registro.  Sí  no  lo  encuentra  se 
posiciona  sobre  el  inmediatamente  posterior 

OK-  0;  operación  correcta 
(clave  encontrada) 

OK-  1 ;  comando  no  permitido 

OK-  5;  NF  no  asignado 

QK=11;  registro  inexistente 

TNEXT,  NF 

Se  posiciona  sobre  el  siguiente  registro, 
dentro  de  la  tabla  NF,  siguiendo  el  orden  se 
cuencial  ascendente  según  el  campo  clave 

OK-  0,  correcto 

0K=  1;  comando  no  permitido 

OK-  5;  NF  no  asignado 

OK-1  1  fin  de  fichero 

TREG,  NF,  NR 

Posiciona  el  puntero  de  registro  de  la 
NF  en  el  registro  NR 

tabla 

OK-  0:  correcto 

OK—  1.  comando  no  permitido 

OK-  hr  NF  no  asignado 

OK-  6;  NR  fuera  de  rango 

TROINL  NF,  NR 

Devuelve  en  NR  el  número  de  registro 
apunta  NF 

al  que 

OK"  0;  correcto 

OK-  1;  comando  no  permitido 

OK-  5;  NF  no  asignado 

TERASE,  NF 

Elimina  de  la  tabla  NF  el  registro  en  curso 

OK-  0;  correcto 

OK-  1;  comando  no  permitido 

OK-  5;  NF  no  asignado 

THRST,  NF 

i _ 

Posiciona  el  puntero  de  registro  de  la  tabla  NF 
sobre  el  primer  registro  libre.  Este  comando, 
en  combinación  con  el  comando  BUFPUT, 
permite  dar  de  alta  nuevos  registros. 

OK-  0:  correcto 

OK-  1;  comando  no  permitido 

OK-  5;  NF  no  asignado 

OK  8;  fichero  completo 
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FICHEROS  DE  CLAVES 


COMANDO 

EXPLICACION 

VALORES  DE  OK 

SEARCH,  IMF,  CL$,  NR 

Busca  la  clave  CL$  en  el  fichero  de  claves  NFf 
devolviendo  la  dirección  del  registro  del 
fichero  indexado  en  NR.  Si  no  encuentra 
CL$,  NR  vale  cero. 

OK=  0;  correcto 

OK-  5,  NF  no  asignado 

OK=1 1 :  Cl$  no  encontrada 

SNEXT,  NF,  CL$,  NR 

Entrega  en  CL$  y  NR  la  clave  y  dirección 
actualmente  indicados  por  el  puntero  del 
fichero  de  claves,  incrementado  posterior¬ 
mente  el  mismo.  Nótese  que  funciona  de 
modo  diferente  al  comando  de  tablas  TNEXT. 

OK-  0,  correcto 

OK-  5,  NF  no  asignado 

OK_1  1 ;  fin  de  fichero 

NOTA: 

OK-1  1  tiene  significados  diferentes  según 
el  comando  que  lo  provoca 

INSERT,  NF,  CLS,  NR 

Inserta  la  clave  CL$  en  el  fichero  de  claves 
NFP  asignándole  NR  como  dirección  del 
fichero  indexado. 

GK=  0;  correcto 

OK=  5;  NF  no  asignado 

ÜK=10;  overflow  de  claves 
(fichero  lleno) 

DELETE,  NF,  CL$,  NR 

Borra  del  fichero  de  claves  NF,  la  clave  CL$, 
cuya  dirección  asignada  es  NR  (se  permiten 
claves  duplicadas) 

OK-  0;  correcto 

OK-  5;  NF  no  asignado 

OK_1 1 ;  CLÍ/NFtyftexistente 

K  EVO  ATA,  NF,  PB,  NB 

Devuelve  en  PB  y  NB  el  primer  byte  y  el 
número  de  byles  del  registro  del  fichero 
indexado  que  constituyen  la  cadena  clave 
para  indexar  en  el  fichero  NF. 

OK-  0;  correcto 

QK=  1 ;  comando  no  apropiado 

OK=  5;  NF  no  asignado 

REGRGr NF 

1  Reorganiza,  distribuyendo  uniformemente 
sus  claves,  el  fichero  de  claves  NF, 

OK-  0:  correcto 

OK=  5;  NF  no  asignado 

GENCLA,  NFC,  NFR 

Genera  sobre  NFC  un  fichero  de  claves  que 
indexan  los  registros  de  NFR  según  las 
características  de  clave  que  se  expresaron  en 
el  utilitario  generador  de  ficheros. 

OK-  0;  correcto 

OK=  5;  NF  no  asignado 

GK-10;  overflow  de  claves 
(fichero  lleno) 

TRATAMIENTO  DE  CAMPOS 


COMANDO 

EXPLICACION 

VALORES  DE  OK 

BUFGET,  NF,  NC,  VR$/VR 
[VR$/VR,  VRS/VR...I 

Recibe  en  VR$  o  VR,  a  partir  del  campo  NC, 
los  valores  de  los  campos  NC,  NC  1  1,  NC  l  2, 
etc,  recogiéndolos  del  buffer  del  fichero  NF. 

... 

OK-  0;  correcto 

OK  -  5;  NF  no  asignado 

OK-14;  NC  fuera  de  rango 

(o  incrementos  de  NC) 

QK^I  8;  contenido  de  campo  en  mal  estado 

BUFPUT,  NF,  NC,  VES/VE 
|VE$/VE,  VE$/VE  .] 

Escribe  en  el  buffer  del  fichero  NFr  a  partir 
del  campo  NCr  los  valores  de  los  campos  NC, 
NC^f,  NC+2,  según  los  contenidos  de 
VRS/VR,  realizando  automáticamente,  lo 
mismo  que  BUFGET,  los  tratamientos  nece~ 
sanos  (compactado  en  este  caso,  descom¬ 
pactado  en  el  otro). 

OK-^  0;  correcto 

OK-  5;  NF  no  asignado 

OK-14;  NC  fuera  de  rango 

(o  incrementos  de  NC) 

OK-1 8;  contenido  de  campo  en  mal  estado 
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las  partes  de  pantalla  podrán  ser  llamadas 
desde  cualquier  programa  y  se  tendrá 
acceso  a  las  siguientes  funciones  para  cada 
zona: 

- — edición  de  un  mensaje 
— reverse  del  contenido  de  una  zona 
— borrado  del  contenido  de  una  zona 
— entrada,  por  parte  del  operar  io,  de  un 
dato  en  una  zona 

— recogida  en  una  variable  del  dato 
contenido  por  una  zona. 

Para  los  casos  en  que  no  se  desee  traba¬ 
jar  con  pantallas  definidas,  es  posible 
emplear  comandos  especiales  de  acción 
similar  que,  en  vez  de  referirse  a  una  zona, 
indican  al  sistema  la  fila  y  la  columna  de 
trabajo,  así  como  otros  datos  impres¬ 
cindibles- 

A  través  del  interpretador,  es  posible 
producir  en  cualquier  momento  el  vol¬ 


cado  sobre  impresora  del  contenido  de  la 
pantalla.  Si  se  utilizan  impresoras  COM- 
MÜDÜRt,  se  reflejarán  incluso  los  gráfi¬ 
cos  y  los  caracteres  en  negativo.  Si  se 
desea  ofrecer  esta  opción  al  operador,  sin 
necesidad  de  ejecutar  un  comando  especí¬ 
fico.  también  es  posible  programar  — me¬ 
diante  un  simple  comando —  el  sistema  de 
interrupciones,  para  activar  la  función  de 
volcado  en  cualquier  momento  a  la  pulsa¬ 
ción  de  ia  tecla  41  FIO”, 


Múltiple  Precisión 

El  paquete  matemático  permite  ope¬ 
rar  en  coma  flotante  y  con  trata¬ 
miento  de  signo,  valores  de  hasta  22 
dígitos  numéricos.  Dado  que  el  inter¬ 
pretador  RASfC  de  COMMO  DORE  pasa 


a  notación  científica  valores  de  más  de  9 
cifras,  los  operadores  y  el  resultado  debe¬ 
rán  ser  soportador  por  variables  de 
cadena.  Se  ofrece  asimismo  un  comando 
de  formatactón  de  resultados  para  el  tra¬ 
tamiento  del  signo  y  comas  de  millar.  Las 
operaciones  soportadas  son  la  suma,  la 
resta,  la  multiplicación  y  la  división. 


TRATAMIENTO  DE  CAMPOS 


COMANDO 

EXPLICACION 

• 

BUFMID,  NF,  PB,  NB,  VR$ 

Recoge,  del  buffer  del  fichero  NFr  a  partir  de 
PBr  NB  bytes  y  los  asigna  a  VR$.  Usese  en 
combinación  con  KEYDATA. 

,  •  i',  . 

OK-  0;  correcto 

OK-  1;  comando  no  apropiado 

OK-  5;  NF  no  asignado 

PANTALLAS 


COMANDO 

VALORES  DE  OK 

ENTER,  Ll,  C,  LD,  TP,  VES,  VR$ 

Adquisición  de  VR$  en  la  línea  Lf  apare¬ 
ciendo  previamente  el  mensaje  VE$  en  la 
columna  C.  La  longitud  máxima  admitida  es 
de  LD  caracteres  y  el  tipo  de  dato,  TP  (0-alfar 
Insolo  caracteres  sin  SH!FTr  2^numer) 

0K=  0;  correcto 

0K~19;  parámetros  incorrectos 

DISPLAY,  Ll,  C,  VES 

Imprime  el  mensaje  VE$  en  la  línea  Lf 
columna  C. 

OK-  0,  correcto 

OK— 1  9;  parámetros  incorrectos 

ACTIV,  [T(VE)|  |,B(VE)]  |,L[VE)| 
[,R{VE)1 

Definición  de  pantalla  activa  Delimita  por 
arriba  (T),  abajo  (B),  izquierda  (L)  y  derecha  (R), 
Equivalente  a  los  pokes  en  220,  221  r  222  y 
223.  Ver  manual  de  BASIC  de  C0MIV10D0RE 

OK-  0;  correcto 

OK-19;  parámetros  incorrectos 

DUMPSI  [ r N P | 

. ijV  ■  | v  ^  \  ■, '' ' /  ■> 

Habilitación  de  la  posibilidad  de  obtener  un 
volcado  de  la  pantalla  en  la  impresora, 
pulsando  "FIO  ".  Opcionalmente  puede  expre¬ 
sarse  el  número  de  periférico  de  la  impresora 
que  por  defecto  será  4. 

■  ■  '■  '  . 

OK  0;  correcto 

DUMPNO 

•  ::  Y  ■/:  .  ...  .  . 

Antagonista  de  DUMPSI 

OK-  0:  correcto 

DUMP 

Vuelca  pantalla  sin  alterar  interrupciones 

'  : 1  ■  ■ : .  ,  .  '  '  . '  ■  , 

o 

ti. 

O 
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ZONAS  DE  PANTALLAS 


COMANDO 

EXPLIC 

ACION 

] 

CHARGE,  NFS  |,U(PE)|  |D(DR)| 

[,P] 

Carga  el  descriptor  de  la  pantalla  NFS,  del 
drive  DR  unidad  PE  y,  si  se  escribe  con  P, 
carga,  además-  la  pantalla.  Los  valores  por 
defecto  son  cero  para  DR  y  8  (o  lo  indicado  en 
DtSK)  para  PE. 

QK-  0:  correcto 

0K_130;  memoria  agotada 

ACCESS,  NZ,  TV  |,NZ,TV,NZ,TV. ,.| 

Entrada  de  un  dato  en  la  zona  NZcon  soporte 
editor,  filtro  de  los  caracteres  entrados  según 
el  tipo  de  zona  y  formatación  posterior  de  los 
mismos.  No  entrega  el  dato  en  ninguna 
variable,  sólo  permite  su  introducción  en  la 
zona.  Permanecen  activas  las  siguientes 
Teclas  de  Control: 

DEL:  Borrado  del  carácter  donde  se  halla  el 
cursor. 

INST;  Apertura  del  texto  para  insertar  un 
carácter. 

“CRSR_  :  Desplaza  el  cursor  a  la  derecha, 
o  a  la  izquierda  con  SHIFT. 

HOME:  Envía  el  cursor  a  inicio  de  zona. 

CLR:  Borra  contenido  de  la  zona 

TAB:  Avanza  cinco  columnas,  o  las  retrocede 
con  SHIFT 

C-  (logo  Commodore):  Se  posiciona  a  la 
derecha  del  ultimo  carácter  escrito  de  la 
zona. 

SHIFT/O:  Borra  desde  la  posición  del  cursor 
hasta  el  final 

OK-  0:  correcto 

OK-16;  NZ  inexistente 

£ 

ZOLIT,  NZ,  VES  |,NZ,VES,NZ, 
VE$,,.[ 

Imprime  VE$  formateada  según  definición  en 
el  módulo  de  creación  de  pantallas,  sobre  la 
zona  NZ 

OK~  0;  correcto 

OK  1  6;  NZ  inexistente 

ZGET,  NZ,  VR$  [,NZ,VR$,NZ, 
VR$...| 

Recibe  en  VRS  el  contenido  de  la  zona  NZ. 

OK-  0;  correcto 

OK— 16;  NZ  inexistente 

ZREV,  NZ  |  ,NZ,NZ...J 

Conmuta  REVERSE/NORMAL  NORMAL/- 
REVERSE  et  contenido  de  NZ. 

QK=  0;  correcto 

OK  -16;  NZ  inexistente 

ZCLEAR,  NZ  [,NZ,  NZ| 

Borra  eí  contenido  de  la  zona  NZ 

OK-  0;  correcto 

QK^16;  NZ  inexistente 

INKEY,  VRS  |,VE$|  |,NL,NL,,,.t 

Espera  la  pulsación  de  una  tecla,  opcional¬ 
mente  filtrada  por  VE$,  la  coloca  en  VR$  y 
salta  opcionalmente  a  la  línea  NL,  según  el 
valor  ASCII  de  VR$  respecto  VES 

o 

11 

o 

MULTIPLE  PRECISION 


COMANDO 

EXPLICACION 

VALORES  DE  OK 

ADD,  VES,  VES,  VRS 

Suma  en  VR$,  VE$  i  VES.  VES  debe  ser  una 
cadena  numérica: 

1  12311111234.234,  por  ejemplo.  Las 

rutinas  de  cálculo  consideran  el  signo  de  sus 
operandos.  Las  cadenas  nulas  valen  cero. 

OK-  0;  correcto 

OK~18;  datos  incorrectos 
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MULTIPLE  PRECISION 


COMAN 

DO 

EXPLICACION 

VALORES  DE  OK 

SUB,  VE$,  VES,  VRS 

Coloca  en  VRS  el  resultado  de  restar  deE 
primer  operando  el  segundo. 

QK^  0;  correcto 

OK“13;  datos  incorrectos 

MULT,  VES,  VE$,  VR$ 

Coloca  en  VRS  el  producto  de  las  variables  de 
entrada. 

OK--  0;  correcto 

OK~18;  datos  erróneos 

OIV,  VES,  VES,  VRS 

Coloca  en  VRS  ef  resultado  de  dividir  el 
primer  operando  por  el  segunde. 

OK-  0;  correcto 

OK— 18;  datos  erróneos 

FORMA!,  VES,  VSS,  LD,  ND,  FS  1 

Formata  la  variable  VES  (que  se  supone 
contiene  un  dato  numérico  de  múltiple 
precisión  o  no)  sobre  la  variable  VSS,  a  una 
longitud  de  LD  caracteres,  con  ND  decimales. 
Si  la  variable  FS  vale  0,  se  colocará  signo 
sólo  si  ef  valor  es  positivo,  si  vale  1  se 
colocará  en  cualquier  caso,  y  si  vale  2,  en 
ningún  caso. 

OK-  0;  correcto 

OK  - 1 1 ;  datos  incorrectos 

GESTION  DE  ERRORES 


COMANDO 

EXPLICACION 

VALORES  DE  OK 

ERRSI 

El  interprete  MEC/DOS,  detiene  la  ejecución 
de  MEC/DOS,  imprimiendo  un  mensaje  de 
error  y  listando  la  línea  donde  se  produce, 
siempre  que  el  error  sea  de  sintaxis  o 
insuperable.  Este  comando  permite  que, 
además,  siempre  que  se  produzcan  valores 
de  OK  que  indiquen  error  se  produzca  el 
proceso  descrito.  En  todo  caso,  ej  valor  de  OK 
para  errores  de  sintaxis  o  propios  del 
interprete  es  1  27. 

OK=  0;  correcto 

ERRNO 

f sfc;'r  V? :  v : :  • 

Antagonista  del  anterior  comando  que,  no 
impide,  sin  embargo,  la  interrupción  dei 
programa  ante  errores  insuperables. 

OK 

Si  MEC/DOS  se  halla  en  modo  ERRNO,  y  en 
cualquier  caso,  si  se  desea  conocer  el  valor 
de  OK  y  la  descripción  del  posible  error, 
utilice  este  comando. 

OK^  mismo  valor  que  tuviera  antes  de 
emplear  el  comando 

HicroSistemas 


Relación  de  Tiendas  en  Madrid 
donde  se  Vende  ya  MicroSistemas 

COMPU-SHOP .  Infanta  Mercedes,  89 

COMPUSTORE .  Doce  de  Octubre,  32 

COMPUSTORE .  Sor  Angela  de  la  Cruz,  28 

COSES  A .  Barquillo,  25 

DIDI5A .  Pintor  Róseles,  26 

ELECTRONICA  5ANDOVAL  ....  San  do  val,  3,  4,  6 

MICROTEC . . . .  Duque  de  5e$to,  30 

PEÑA,  Libería . . .  Cavanilles,  52 

SINCLAIR  STORE . . .  Bravo  Morillo,  2 

VIDEO  MUSICA . . .  Orense,  28 

..y  en  la  Feria  de  Micros  de  Ef  Corte  Inglés. 

Castellana,  planta  6. 
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En  este  juego  para  el  C-64, 
tienes  que  matar  a  unos 
mosquitos  rápidos.  Consegui¬ 
rás  una  buena  puntuación  si 
“mosqueas”  a  muchos. 

“Mosqueando  al  Mosquito"  es  un 
juego  simple  pero  divertido,  escrito  total¬ 
mente  en  Basic  para  el  C-64,  La  finalidad 
del  juego  es  la  de  matar  al  mosquito.  Fisto 
se  hace  moviendo  la  palmeta  mediante  el 
uso  riel  “joystick"  conectado  a  la  Puerta 
L  El  mosquito  se  desplaza  al  azar  (igual 
que  en  la  vida  real)  por  toda  la  pantalla 
Cuando  intentas  darle  al  mosquito,  sólo 
tienes  una  posibilidad  entre  nueve  de 
matarlo  (igual  que  en  la  vida  real). 
Cuando  matas  a  dos  mosquitos,  los  otros 
se  “mosquean",  y  los  mosquitos  grandes 
empiezan  a  aparecer  al  azar  por  toda  la 
pantalla.  Si  tú  o  el  mosquito  pequeño 
chocáis  con  un  mosquito  grande,  los  dos 
seréis  desplazados  a  distintas  posiciones 
en  la  pantalla,  A  veces,  tú  puedes  sacar 
ventaja  de  esto,  si  tu  palmeta  se  encon¬ 
traba  lejos  del  mosquito  pequeño, 

¡Pero  ojo!  Uno  de  los  mosquitos  gran¬ 
des  es  un  matón.  Si  tú  o  el  mosquito 
pequeño  le  Locáis  a  éste,  el  juego  habrá 
terminado.  No  hay  lorma  de  saber  cuál  es 
el  mosquito  matón  hasta  que  choques  con 
él.  Si  le  das,  el  mosquito  matón  se  vuelve 
rojo,  y  tu  puntuación  saldrá  en  pantalla. 


Cuando  hayas  matado  a  diez  mosquitos 
pequeños,  el  juego  termina,  y  el  tiempo 
que  hayas  tardado  sale  en  pantalla.  Cual¬ 
quier  puntuación  por  debajo  de  los  100 
segundos,  es  buena. 


Sonido 

El  programa  comienza  con  el  título,  y 
un  mensaje  de  ínicialización,  Durante 
estos  mensajes  previos,  el  ordenador  se 
encuentra  muy  ocupado  transfiriendo  el 
juego  de  caracteres  a  la  memoria  RAM. 
Esto  le  permite  al  programa  crear  los 
caracteres  del  juego. 

Las  líneas  130-160  crean  el  carácter 
para  el  mosquito  pequeño  y  el  carácter 
para  la  palmeta.  Las  lineas  1000-1060 
crean  los  “spritcs"  para  los  mosquitos 
grandes.  Existen  dos  efectos  de  sonido  en 
el  programa:  el  "zzzz"  del  mosquito  y  el 
sonido  del  palmetazo.  Estos  sonidos  están 
creados  en  las  lincas  260-330  y  900-980, 
respectivamente.  Las  líneas  560-580  crean 
los  movimientos  aleatorios  del  mosquito. 

Cuando  el  ordenador  termina  la  inicia- 
lizaciún,  el  jugador  comienza  el  juego  al 
pulsar  el  bolón  de  disparo  en  el  “joys- 
tick".  No  es  necesario  pulsar  este  botón 
para  matar  al  mosquito.  Lo  único  que  hay 
que  hacer  es  intentar  mantener  la  palmeta 
encima  del  mosquito,  y  tarde  o  temprano 
será  matado.  Pero  es  importante  seguir  a 
los  pequeños  y  evitar  a  los  grandes, 
¡Animo!  Los  matarás  bien  muertos. 

(El  juego  se  hace  más  rápido  si  se  quita 
el  sonido  del  mosquito,  cambiando  la 
linca  630  por  la  que  se  representa  a 
continuación: 

630  PO  K  E  M  D  ,32:  PO  K  E  M  C  ,0:  G  01  03  80 


Mosqueando 
al  Mosquito 
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VIDEOCASINO 


10  PR I NT " CCLR 1 " : POR I = 1 T05 : PR I NT : NEXT 

► 

PRINTTAÍK16) ;  "MOSQUITO" 

440  IFJV=6THENDX=- 1 : BV=49 : POKESD -  32 ¡ 

15  PRINT : PRIHT  PRINTTflBÍ 19>; "POR" 

GOTO490 

20  PRINT  PRINT  PRINTTñBC 12) ; "CHARLES 

450  IF JV-3THENDX=1  :  POKESD.»  32 :  0010490 

[ SPC ] T. t SPC ] KOWflL " : N=0 : 9= 1 60 : R* 1 10 : G 
=  1 

460  IF7V=9THENBX=1  DV=-4G ' POKESD, 32 

30  PQKE53269, O ' PGKE53277 , 1 ¡ POPE 53271 

G0TG499 

1  PQKE53279 ,  O  ■  G03UB 1 000 

470  1FJV=1 9THENBX= 1  HV=40 : POKESD, 32 

35  REM#*¡t¡  TRANSFIERE  EL  JUEGO  DE  CAR 

498  SC=SC+BX+DV  I F 8 C > 1 93 3T H E M S C = S C-9 

ALTERES  A  RAM  ♦+* 

60 

40  POK  E56334 , PEEK ( 56334  > RND254 ■ P0KE1 

500  IFSC<1024THENSC=SC+960 

■ PEEK < 1 >AND251 

510  POKESC  .i  102  ¡  3D=SC 

50  EUR I = OTO 26 3  POKE I + 1 2288 • PEEK < I +53 

526  XX-FEEK ( 53279 ) : IFXX=Z2THENP0KE53 

248>  NEX  T 

287+ VV.,  2  -  XX-0  :  P0KE53269.*  ZZ  :  GOTOS00 

60  F'R  I  NT "  [  CLR  ]  PREF I  JANDO  £  SPC  ]  LA  C  SPL  ]  T 

5-30  IFXXOOTHFNPDKESD ,  32  :  Si>SC+INT<  1 

REIA C  SPC  3  DE  C  SPC ] CARACTERES " 

0#RNDC0> > ' SD=SC : POKESC, 102 ■ XX-0 : GOTO 

70  FOR I =384TG495 : POKEI+ 12288, PEEK ( I + 

250 

53248 >  NEXT 

540  POKES+4 . 1 9 : FORTUITO 10 : NEXT ■ POKE 3 

30  FOR I =8 1 6T 0823 : POKE I  + 1 22S3 > PEEK í I  + 

+4,  18 

53248 >  NEXT 

558  DX=0  DV=0 

30  FOR 1=1934701287 ' POKE I  + 1 2288  , PEEK  í 

560  MX- I NT ( PHD ( 0 >#3 > ' MX=MX- 1 

1+53248) ' NEXT 

570  M V = I NT ( RND < G > * 3 ) : MV-(MV-1 >*40 

1 O0  FOR I = 1 400TÜ 1519: POKE I + 1 2288 , PEEK 

530  MD“MC  MC=MC+MX+MV 

< 1+33248)  NEXT 

590  I FMO 1 9S3  THENMC~MC  -  960 

1 1 0  POKE  1 ,  PEEK  ( 1 )  0R4  P0KE56334 ,  PEEK'  C 

600  IFMC  ::  1024  THENMOMC+ 96G 

563 34) ORI 

610  IFMC=3CTHENTN=TI/60 :  GOTijyRy 

120  PÜKE53272 ,  (PÉEKÍ 53272.) RND240J  + 12 

620  POKES+4 , 1 9 : FORTUITO 10  NEXT ' POKES 

125  REM***  FORMAR  EL  CARACTER  DEL  MO 

+ 4  f  18 

630  PÜKEMD)  32  -  POK  EMC.*  0  '  GOTO280 

SOLUTO  +** 

700  CT-CT+1 

130  n=  12288  :  POKEM.'  144  :  POKEN+1 , 80  :  POK 

710  I FCTL9THENP0KE53269 , 0 ' 0070800 

Et'1+2 , 56  ’  POKEM+3 , 252  ■  POKEM+4 ,  82 ;  POKEM 

720  IFCTT2THEN74G 

+5.-73 

730  N=CT-2  :  RESTORE :  0=  1 55+PI'ID < y  >  :  R=  1 7 

140  POKEM +6 * 136  =  PÜKEM+7, 132 

5#RND<0> : G=2*G+1 • GOSUB1040 

145  REM***  HACER  E~_AF1  *+♦ 

740  POKE  1 934 .■  1 47  •  POKE  1 985  >  131  POKE  19 

150  M=M+ 1 248  POKEM, 137-PÜKEM+l, 74  PO 

86)  143  :  POKE  1937)  1 46  :  POKE  1933.*  133 

KEM+2  ■  36  '  POKEM+3, 0  POKEM+4 , 0  :  POKEM-*  5 

750  POKE 1 989 ,189: POKE 1 990 , í CT+ 1 76  > 

)  36 

760  POKESC +54272, 1  GOTO250 

16S  P0KEM+S.-74  ¡POKEM+7. 137 

800  PÜKEMD)  32  -  PGKEMC.*32 

178  PRIHT1-  CCLR] " 

810  PR  I  NT  "  [  CLR  ] "  * 11 L  RVSÜN  ]  F  J  N  C  SPC  ]  DE  t  SPC  ]  J 

1 88  PR I  NT " PULSE [ SPC ] D I SP  ARO  C SPC 1 PAPA 

UEGÜCRVSOFFT M  :  PP1NTI,T  IEMPÜ-"  ;  IHT (TH- 

[SPCI EMPEZAR" 

TH+ -  5 >  í "SEGUNDOS" 

1 30  I FPEEK  c  5632 1 )  0239THEH 1 90 

820  PRINT "PUNTUACION^1  ;CT ' PGKE53279, 

200  PÜKE53269 ■ 0  P0KE53277 , PEEK (53277 

0 ; PÜKES+24 , 0 

> AND254  PÜKE53271 , PEEK ( 5327 1 > ANH254 

830  PR I  NT M [ 5CRSEP ] PULSE C SPC ] D I SPAPO [ SPC 1 P 

2 1 Ü  POKE 53279  *  O  :  W»  I MT  ( 3#RND  <  0  )  >  -  22= 

HRRC  2SPC 1  COMENZAR  í  SPC  ]  OTRA  [  SPC  ]  VEZ 11 

2  TY7 

FL-l : GOTO 190 

220  PRINT "CCLR J "  F0PN=56256T056295 • P 

895  REM***  SONIDO  DE  Lñ  PALMETA  +++ 

OREN,*  14  NEXT 

9 0 0  F  0  R:  L = 0  T  0  S  4  P  0  K  E S + L..  -  0  ■  N  E ■•!  T  P  i  J  K  E  SC: 

225  F0RN-55296TÜ56255 • PÜKEN ■ 1 : NEXT 

) 156  i PÜKEMD  ) 32 : PGKESC+54272 , 7 

230  FDRN- 1 94STO2023 : PÜKEN *  160 : NEXT ' R 

910  POKES.*  240  :  POKES+1  *  33 

EM+++  'BORRAR  LA  LINEA  INFERIOR  *** 

920  FÜKES+5) 8 

240  SO  1524  DN=8  •  DV-y  SB-1024  CT=0G 

930  POKE  S+22..104 

“0  TM^TI/60 

940  POKES +2-3  *  1 

2*56  MH-MC  '  PÜKEMD  .*  32  :  MO  1 024+ 1  NT  ( 960* 

950  PÜKES+24.-  79 

RNIi ( 0 '■  POLEMC ,  0  POKESC  ■  1 02 

960  POKÉS+4) 129 

255  REM*#+  SONIDO  BEL  MOSQUITO  *++ 

970  FORT- 1 TO250 ‘ NEXT  POKES+4 , 1 28 

260  8=54272  :  FL-0 

980  FÜRL™0TÜ24  '  PÜKES+L .*  0  NEXT 

930  GÜT O70Ü 

270  ROKES+24,0 

1  000  DAT  A0  .*  0  .■  0  *  0  )  0  *  0 . 0 0  ■  0  ■  0  ?  0 , 0 , 0 , 8 

,fl  8  0  P  H  1  E  51  +“  J.  *  10  M 

7.0,0. 99 ,  o  ,  fi ,  54 . 0 , 0 , 54  ,  n  ,  0  ,  £S  ,0.1, 25 

290  FÜKES+5 , 213 

5  -  64 

i: 00  POKES+1 5  •  23 

1010  DATAS )  255  *  224  ,,0,2.1 8  -  32 , 1  *  85  *  1 6  * 

310  POKE  S +24  ,*15 

2 ,  :34  *  1 36 , 2  *  84 ,  1 28  )  4  *  1 46  j  1 28 ,  O  *  0  ■  0  .*  O  ■ 

3  Z  0  P  0  K  E  S + 4  ,  1 9 

0 , 0  ,,  0, 0 

330  FORT- 1  TOS 00  •  NEXT  POKES+4 .*  18 

1  020  DAT M0  t  O  ,p  0 .4  0  ,,  0  0  ^  0 

375  REM+*+  LEER  JOVSTICK  +*+ 

1030  FÜRI-2040TG2047' POKEI) 13  NEXT 

380  IV- 1 5-“  ( PEEK  ( 5632 1  >  AND  15):  DX-0  D7 
"0 

1 040  FOR I =07062  =  RE ABE  POKE 83 2+ T  *  Z • NE 

XT 

1050  V “5324 3 : P0KLV+2*N ■ P+50 - POKEV+ 1+ 

400  IF  TV  - 1 THENDV--40  POKESD  ,  32  ’  0ÜT04 

90 

2*N , 0+40 

4 1  y  I  Fr  J  V  ~  2 T H  E N  D V =40  POKESD  .*  32  :  0OTO49 
ñ+ 

1060  P  0  K  É  V  + 1 6  *  0  P  0  K  E  V +21  .  G  :  P  0 K  E  V  +  ';:L| + 

N)  i 

1070  IFPEEK í 53279 > OOTHENMD^MC  POKEM 

420  I F  TV-4TMENHX^- 1  •  PÜKE8D  .*  32  '  G0T049 

0 

D ,  32  ■  MC-MC  +5  :•  8D-SC  POK  ESI)  ■  32  SC“SC  +  5 

430  IFJV-5THENHX— 1  DV=-49  POKESD  *  32 
r>nrn  4c+i 

1080  PETUPN 

► 
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CRDINFOEMATIGA 

LES  CASTELLANA 


En  la  6a  Planta  de  El  Corte  Inglés 
Castellana,  le  esperan  1.000  m£ 
dedicados  de  lleno  a  la 
Microinformática.  Con  las  principales 
marcas  del  mercado  de  los 
Microordenadores  Profesionales  y 
Microordenadores  Familiares,  áreas 
dedicadas  a  Complementos  y  Librería, 
actividades  para  colegiales...  y  todos 
los  Servicios  de  una  gran  Feria. 
Además,  un  equipo  humano, 
especializado  en  los  diferentes 
Microordenadores,  contestarán  a  todas 
sus  consultas. 


Y  no  olvide  nuestras  facilidades  de 
compra:  Financiación  hasta  24  meses. 
Con  el  Servicio  Post-Venta  y  la 
garantía  de  El  Corte  Inglés. 

Venga  a  conocer  las  novedades  de  las 
mejores  marcas,  en  la  Ia  Feria  de  la 
Microinformática  en  El  Corte  Inglés. 


6~  P  L  A  N  T  A  -  CASTELLANA 


sta  sección  está  dedicada  a  la  colabora¬ 
ción  de  todos  nuestros  lectores  y  está 
dividida  en  dos  partes: 

1)  Programación: 

Programas  y  similares 

2)  Magia: 

Trucos,  sugerencias,  etc. 

Habrá  premios  y  alicientes  41 para 
todos  los  participantes”  (ver  editorial 


Todas  las  colaboraciones  deben  reñir 
escritas  a  máquina  a  doble  espacio  y  los 
programas  grabados  en  cinta  (si  es 
posible),  o  con  el  listado  completo  en 
impresora.  ! Xuestros  lectores  m  ás  jó  ve¬ 
nes  pueden  escribir  a  mano  pero  con 
letra  muy  clara. 

Enviarnos  vuestra  dirección  para  que 
podáis  poneros  en  contacto  unos  con 
otros. 


página  3). 

Incluimos  hoy  dos  colaboraciones  de  dos  chavales  a  ver  si  a  los  demás  se  les  quita 
el  miedo  y  nos  envían  cosas.  Topo  Loco  ya  apareció  anteriormente  en  Cluh 
Commodore. 

Así  que:  ¡animaros,  chicos  {...y  chicas)! 


2X/ Commodore  World  Abril  1984 


Carlos  Pérez  O  rué 
Aretxondo,  8-!  -  D 
Algorta-Guecho 
VIZCAYA 


Hola,  amigos.  Os  mando  en  la  cima  un  juego  muy 
corto,  peco  que  espero  os  gusie.  Se  llama  GOLF,  y  os 
lo  mando  en  cinta  porque  no  tengo  impresora. 

ti  programa  está  hecho  en  un  Commodore-64,  y  os  lo 
voy  a  comentar  un  poco,  aunque  es  de  lo  más  simple: 

100-140:  Dibujan  el  campo  de  gol!'. 

150-160;  Dibujan  el  hoyo  en  un  punto  elegido  al  azar. 
170-180:.  Dibujan  la  pelota. 

200-240:  Movimiento  de  la  pelota. 

290-340;  Dibujan  la  pelota  que  cae  al  hoyo. 

Y  nada  más,  tengo  16  años. 


150  CL=INT(39*RNIK 1  )  +  l  > 

160  PDKE  V+(40*20)+CL,32 
170  PDKE  V+í:40#19},31 
130  POKE  U+í 40*19) *  0 

150  INPUT  "  A  [  SPC  3  CLIENT  OS  C  SPC 1  METROS  C  SFC 1 
ESTA  í  SPC  3  EL  [  SPC  ]  HOV0 ,c  1  R 

195  IFfi>39  THENfi=39 

196  IFñ<lTHENft=0 
203  FOR  M= 1  TÜ  R 

205  PÜKE  V+ ( 40*19) t 32 
210  POKE  V+<40*19HH,3t 
220  POKE  W+<40#13>+H,0 
230  POKE  YK40*19>+H..  32 
240  MEXT  H 

250  POKE  V+(4©*19)+R.'  81 
260  POKE  W+<40#19)+fl,0 
270  IF  R~CL  THEN  290 
280  GOTÜ320 

290  PÜKE  V+<40*21)+A,S1 

300  POKE  U+(  40*21  )+ñ.i  0 

310  POKE  V+í40*19)+ñ.i  32 

315  PPIMT : PRINT  PRIMT  PRINT" [4SFC30. 

K .  ■  LO  [  SPC  ]  HAS  [  SPC  3  COHSEGU I  DO 11 
317  GOTO  330 

320  PRINT  PRIMT ■  PR I NT " [  25PC 3 MALA í SPC 3 
SUERTE ■ OTRA E SPC 3  VEZ t  SPC  3  SERA " 

330  PRINT : PRINT  INPUT  "GUI ERES [SPOT  JUGAI 
[  SPC  3  DE  !  SPC  ]  NUEVO  [  SPC  Kit  SPC  ]PR  RR[  SPC:  ]S  l> 
340  IF  B^l  THEN  1O0 
345  IF  DO  i  THEN  PRINT"  CCLR3 " 

350  END 


1  REM  GOLF 

10  REM  ****************** 

20  REM  *  * 

30  REM  *  GOLF  * 

40  REM  *  * 

50  REM  ****************** 

90  V-1024 ■ U”55296 

100  PRINT" CCLRJ "  REM  "CGLR]"ES  3HIFT 
CLR/HÜME 

ItO  FOR  X=0  TÜ  33 
120  PÜKE  V+  <  40*20  :>+>;,  63 
130  POKE  W+< 40*20) +X, 1 
140  next 

145  PRINT  "  EL  l  SPC  ]  CAMPO  C  SPC  3  T I  ENE  L  SP ü  3 
40 i SPC 3 ME TROS" 


CLUB  ALAIZ 

Plaza  Monasterio  Santa  Gemina,  $/» 
Teléfonos  25  44  80  -  25  77  04 
PAMPLONA 


Las  Siete  y  Media 


que  ejecuta  d  famoso  juego  de 
Rem  quedan  explicadas 
.  t.1  ordenador  siempre 
actúa  de  banca  La  posibilidad  de  juegadores  es  de  hasta  10, 
De  todos  modos  basta  dimensional'  la  variable  DO)  para 
que  puedan  jugar  mas.  Ll  número  que  pide  el  ordenador  al 
principio  de)  programa  es  a  modo  de  barajar  las  cartas, 

Ll  programa  ha  sido  elaborado  por  miembros  del  Club 
de  Programación  Alai/.,  de  Pamplona,  destinado  a  es  Lu¬ 
dían  tes  de  BUP  y  COL  .  Se  organizan  todo  tipo  de  cursos, 
actividades,  Computer  carmes,  etc. 

i  sté  programa  está  destinado  a  usarlo  con  el  Co rumo- 
do  re  64  Su  utilización  en  un  VI 020  es  fáci í mente  adapla- 


Le  en  víamos  un  progra 

las  siete  y  media,  A  través  de 
las  distintas  partes  del  programa 


17  PRINT: PRINT  PRINT : PRINT : PRINT 
13  PRINT" [ 4SPC37*  57. 57. 5C5SPÜ37. 5?.  5 
7. 5 [SPC3 " 

19  PRINT"! 9SPC  37.5! 6SRC 37.5 i 7 SPC 3 " 

20  PRINT" C8SPC ] 7. 5 [ 7SPC 3 7 . 5C  7SPG J " 

21  PRINT" Í73PCT7. 5CSSPC37. 57, 57. 5CSPC3 


22  PR I  NT 1 1  [ 78 PC ] 7 . 5 [ 1 4 SPC T  7 . 5 1 SRC 3 " 

23  PR I  NT " [ 7SPQ ] 7. 5 [ 1 4 SPC 3  7 . 5  C SPC  7 " 

24  PRIMT" C7SPC37, 5E3SPC37* 5C2SPC37.5 
7.57. 5CSPC3  Jl  FÜRI  =  1TO2000  NEXTI 

25  PRINT  "  i  73 PC  ]  7 .  5  [  3SPC  3  7 . 5  C  2 SPC  J  7 . 5 
7.57.5! SPC 3 " : FOR I = 1 TÜ2000 ■ NEX T I 

26  PRINT" ECLRJ"  PR I NT " ESTE í SPC IES! SPC T 
EL  i  SPC  ]  J IJEGG  C  SPC  1  DEL  í  SPC  1 S I ETE  t  SPC  3  V 

C  SPC  ]  ME  D 1 0 ;  [  5’SPC  3  PRUEBEN  C  SPC  3  SU  [  SPC:  3 
HABILIDAD" 

27  PRINT " EL C SPC 3  ORDENADOR í SPC 1 REPRRT 
Ej  [5PC3VI  SPC  3  POR  C  SPC:  3  TANTO  [  SPC]  ES  í  SPC  I 

r  d  r  Qpr  1  pCiurPr'1 2 3 4 

2S  PR 1 NT "SI! SPC I USTED C SPC 3  T I E NEC SPC 3 
L A  C  SRC  3  MI SMR  t  SPC  3  J UÑALA [ SPC  3  QUE [ SPC  3 
EL, [ 2SPC  3P I ERDEC  SPC  3USTED " 

29  FORT  =  lTClN  Bí  T!>=0  '  NEXT  :  INPUT 11 ESCRI 
EE [ SPC ] UN I SPC  3  NUMERO " , I 

30  I NPUT" NUMERO C SPC 3 DE [SPC] JUGADORES 
[SPC 3 " f N  GOSUE700 

31  FDRT=lTCiN 


Jesús  Rafael  Martínez 


1  REM  *** JUEGO  SIETF  Y  MEDIO  PARA  C- 

64*** 

2  REM  REALIZADO  POR  ÉL  CLUB  DE  PRi'iGR 
ANACI  UN  hLh 12. 

3  REM  PLZA  STA  GEMMA  S  'N  PAMPLONA  TF 
H OS  — 1  34 87  ¿54430  V  257704 

4  REM  +++ +AUT UPES  DAN I , EMI L I □ , SAN T I , 
CAMILO ■ PABLO > KESUS  V  JESUS+++++++ 

16  PRINT" [CLP 3 " 


Comniudore  World  Abril  LJ84/29 


32  PRINT " [CLR] " 

33  PR I NT  " C  ■ YEL 3  JUEGA t SPC ] " , Hí  t T  > 

34  PRINT" C WHT 3 " 

35  REM  *  SACA  CARTA  * 

36  OCISUB200 

37  REM  *  JUGADA  BE  LOS  JUGABORE: 

38  A=X 

39  B(T>"D<T  .|+R 

40  PRTNTTAB<3 > " [GRN 3 TIENES [SPC] 


£0 

240  F'RINTmHP[3PC]ShLIDQ[SPCJi:!m  GOTG'2 
60 

250  PR INT "HA [ SPC] SAL I DO [ SPC ]  K  " 

260  IFX>7TH£NX=.5 
270  RETURN 
300  P0KE54296, 15 
310  PUKE54277  j 3 
320  P0KE54276.-33 
330  FGRD=1 TÜ100 : NEXTD 
340  REABRI 
350  REAÜB 

360  1  FB“- 1 THENPÜKE54273 , 0 :  P0KE54272 , 

0 : RESTORE : RETURN 
370  P0KE54273 , fl ■ PÜKE54272 , B 
330  FDKE54276,0 
330  GÓTO310 

400  DATA 17,  37/ 19, 63, 21 , 154, 22, 227,  17 
, 37, 63, 154,22, 227 

410  BRTA52,  177,28,214,32,94,34,  175 
420  DRTA“1 , “1 
430  RETURN 

435  REM  *  MUSICA  SI  PIERDE  EL  ORDENA 
DÜR  * 

490  FÜRE=1T07 
500  P0KE54296, 15 
510  P0KE54277 , 55 
520  PQKE54276 ■ 37 
530  FÜRH® 1 TÜ300 : NEXT 
550  PÜKE54273, 17 
560  PÜKE54276, 0 
530  NEXTE 
620  RETURN 

625  REM  *  INTRODUCCION  DE  NOMBRES  * 

700  PRINT" [CLR] " 

701  I  FN=  1 THENPR I  NT 11 ESCR I B  A  [  SPC  3  SU  C  SPC  3 
NOMBRE" 

702  I FN> 1 THENPR I NT " ESCR I BANC SPC] SUS C SPC 3 
NOMBRES" 

705  FGRH=1T0N 
718  INPUTRÍ (H> 

715  NEXTH 
728  RETURN 


41  PRINT" CNHT ] " 

50  I FU >:! T>>7.5THENPPINT"SE[SPC]HACSPC] 
PASADO" 

62  IFDÍ  T)>7. 5THENG0TÜ31 

70  F'P  i  NT  "  0U I  ERES  C  SPC  3  MAS  [  SPC  3  CARTAS , 

c  spc  3 11 ,  ai  i  r> 

71  PR I NT " 1 2SPC3SI L SPC ] QU I ERE  í SPC 1 MAS 

[ SPC J  PULSE [ SPC 3 LA  í SPC ] TECLA [ SPC 3 S , C SPC 1 
S I í SPC ] NÜ [ SPC  3 PULSE í SPC ] OTRA t SPC 3 TEC 
LH [ SPC  JVC  SPC  3 ESPERE" 

72  GETAÍ  IFFtf~l<  "THEH72 
80  I FAÍ= "S " THENGGT0S6 
3 1  FOR I - 1 T O 20 00 ' NEXT I 

92  NEXT] 

93  REM  4  JUEGA  EL  ORDENADOR  * 

94  PRINT" [ CLR 3" 


S€  Pft I  NT " [ ELK ] JUEGO C  SPC  JVC " : PR I  NT " CUHT ] 


100  G0SLIB200 
105  E=X 

110  G-G+B 

1 20  PR I NT  TAB  í  3  > n TENGO I  SPC 3 M ; G 
130  IFG>5ANDG<7. 5THENGOTO 150 

135  IFG>7. 5THENPRINTMME[SPC]HE[SPC]P 
ASADO" 

136  IFG>7. 5THENGOTO150 
140  IFGC-5THENGOTÜ100 

150  FORI-1TO2500  NEXTI 

151  REM  *  COMPARACION  # 

155  PRINT"ICLR3,+ 

170  FORT- 1 TON 

175  IFDCT:'>7.5THEND<T;=0 

176  IFG>7. 5THENG-0 

179  PR I NT : PR I  NT : PR I  NT : PR I  NT : PR I NT : PR 
INT 

180  I FB  <  T ) >G  THENPR I NTCHR4 < 1 8 ) TAB  <  5 ) " 
HA  C  SPC  3  GANADO [ SPC  3 " j A$(T ) 

181  IFDÍ T  >>GTHENGGSUB430 
185  FORI^1TQ2050NEXTI 

1 39  PR I NT : PR I NT : PR INT : PR I  NT  ^  PR I  NT - PR 
INT 

1 90  I FG>=D C T  >  THENPR I NTCHRÍ (1 8  >  TAB  < 5 ) 
M APRENDA C SPC ]R[ SPC:] JUGAR,  CSPC3"  ;A$íT 


191  I FG>=D<  T  > THENGOSUB300 

192  FORV-1TO500 : NEXTV : PRINT" [CLR] " 

193  NEXTT 

194  PRINT" í CLR3 M : PRINT1 "QUIEREN CSFC3V 
OL VER  í SPC  3  A [ SPC 3  JUGAR? " 

195  PR I  NT " [ 3SPC  3 S I C SPC ] QU I  EREN  C SPC ] P 
ULSEN [ SPC  ] L.A [ SPC ] TECLA C3PC3S,  SI  I SPC ] 

NO [ 3 SPC ] PULSEN [ SPC  3  OTRA  C SPC  3  TECLA [ SPC 1 


196  0ETB$: IFEt="" TREN  196 

197  I FE$= " S " THENG0T029 

198  ENH 

199  REM  ABARAJA* 

200  X- 1  NT í 10#RHD \ I >  >  + 1 

201  REM  *  MUSICA  SI  CANA  EL  ORDENADO 

R  * 

202  ÍFN>5THENL-3 

203  IFN<“5THENL=4 

205  KX>-T(X)  +  Í  ■  IFKX»LTHENGOTO200 
210  ONXOOTO220, 220,220,220,220,220, 2 
20, 230,240,250 

220  PR I NT " HA I SPC 3 SAL I DO [SPC 3 " X - G0TG2 
60 

230  PR I NT "HA [ SPC 3 SAL I DO [ SPC 3 J " : G0TÜ2 
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Gráficos  en  Tres  Cr 
Dimensiones 

Para  VIC-20  con  Superexpander  o  Graphics 
hace  mucho  tiempo  que  los  que  hacemos 
Club  Commodore  andábamos  como 
locos  persiguiendo  un  programa  que  permita 
representar  en  pantalla  gráficos 
en  tres  dimensiones. 

Gracias  a  la  colaboración  que  hoy  publicamos 
desaparece  una  de  nuestras  mayores 
obsesiones,  a  ver  si  alguien  se  anima  y  lo 
adapta  para  el  Commodore  64. 

Presentamos  un  programa  de  gráficos 
que  representa  !a  superficie  gráfica 
generada  por  una  función  z— f(x,y)  y  que 
da  una  visión  tridimensional  de  la  misma. 

Nosotros  creemos  oportuno  mandarlo 
ya  que  hasta  ahora  los  programas  de  grá¬ 
ficos  que  han  salido  en  esta  revísta  sólo 
trataban  de  la  representación  unidimen¬ 
sional  de  una  función.  Nuestro  programa 
creemos  que  abre  una  puerta  a  las  gráficas 
de  representación  de  superficies. 

Aunque  este  programa  no  es  del  todo 
completo  y  se  puede  prestar  a  muchas 
modificaciones,  según  la  memoria  que 
cada  uno  tenga,  creemos  que  ofrece  una 
visión  básica  del  modo  de  programar 
superficies  a  un  nivel  adsequible  para 
todos  los  niveles. 

Quizas  una  de  las  mayores  dificultades 
que  hemos  tenido  que  salvar  era  la  de 
tapar  las  partes  ocultas  ya  que  al  principio 
quedaban  las  gráficas  poco  definidas  por 
esta  causa.  Una  vez  salvada  esta  primera 
dificultad  nos  dedicamos  a  proporcionar 
la  altura  del  plano. 

El  programa  en  sí  tiene  cinco  partes 
bien  diferenciadas  que  paso  a  explicar 
brevemente: 

Líneas  100-200:  Introducción  de  varia¬ 
bles;  dimensión  de  puntos  máximos  y 
mínimos  para  las  partes  ocultas  y  prepa¬ 
ración  del  ordenador  al  modo  gráfico. 

Líneas  210-260  y  470-510:  Calcula  en 
primer  lugar  X2  e  Y2,  estos  valores  los 
gira  dando  3 a  X  c  Y;  a  partir  de  estas  cal¬ 
cula  D  y  por  fin  calcula  Z=f(x,y) 

Líneas  270-340:  Mira  si  ha  de  dibujar  el 
siguiente  punto  y  calcula  su  altura  real  en 
la  pantalla. 

Lineas  350-370:  Dibuja  la  línea  y  actua¬ 
liza  máximos  y  mínimos. 

Lineas  410-460:  Calcula  el  último  punto 
que  es  oculto  o  el  último  punto  visto  y  lo 
sitúa  en  un  máximo  o  en  un  mínimo  según 
convenga. 

Como  he  venido  observando  que  todos 
los  programas  son  para  utilizar  el  SUPE- 
REXPANDER  y  que  los  usuarios  de 
GR  A  PH  VI CS  (un  casette  para  gráficos 
que  vende  la  compañía  tudesco mp)  están 
un  poco  discriminados,  me  he  tomado  la 
molestia  de  señalar  las  diferencias  entre 
ios  dos  sistemas.  Asi  pues  los  usuarios  de 


este  último  sistema  sólo  tienen  que  cam-  l  190  FOR  X=0  TO  151:  M(Ü,X)=159: 
biar  las  siguientes  líneas:  [  M(lsX)=0:  NEXT. 

180  DIMMf  1,151)  |  200  &S9,2 
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Aspecto  de  ¡a 
pantalla  de!  11  ( 
con  el  programa 
del  articulo,  i Fo¬ 
to  de  los  auto¬ 
res). 


210  FOR  J=0  1  Ü  159  STHP  3 
220  Y2-Y(Í+(YDY0)*J/159 
240  FOR  1-0  TO  151 
250  X2— X0+{X  I -X0)®  1/151 
270  S=(Z*Z0+J) 

280  IFS  159  THEN  S=  1.S9 
350  &  1(1-1),  SIJ,S 

Lina  Vez  cargado  el  programa  y  resuel¬ 
las  las  modificaciones  lo  que  Leñéis  que 
hacer  para  que  funcione  es  lo  siguiente: 

En  primer  lugar  introducid  Sa  función 
ha  ejecutar  en  la  linea  5fX). 

Seguidamente  hacéis  un  RUN  y  se 
introducen  las  variables  que  ahora  os 
explico. 

Los  valores  máximos  y  mínimos  de  X  e 
Y  es  el  intervalo  que  queréis  que  repre¬ 
sente  de  los  ejes  X  c  Y, 

La  altura  es  el  factor  por  el  que  multi¬ 
plicamos  La  altura  real  de  los  puntos  y  que 
tendrán  estos  en  la  pantalla. 

En  intervalo  se  introduce  la  distancia  al 
centro  que  queréis  que  se  vea  en  la  panta¬ 


lla  según  X  e  Y. 

El  giro  se  introduce  en  radianes,  pero  si 
queréis  introducirlo  en  grados  sólo  tenéis 
que  cambiar  la  linea  170  v  poner  en  ella: 

170  INPUT  “GTRO“;”;AL:Al  = 

=  180*  AL/tt 

Por  último  os  damos  un  ejemplo  para 
que  lo  probéis  y  que  os  dará  la  figura  que 
mandamos: 

En  la  línea  500  Z=LXP(-D*D)*SIN 
(2*  7t  *D)  que  es  la  función  que  ponemos 
en  el  programa. 

Poner  en  X  máxima  y  mínima  y  en  Y 
máxima  y  mínima  2,-2. 

bn  altura  para  el  SUPEREXPAN DLR 
poner  500  y  para  el  GRAPHVICS  poner 
30. 

Ln  intervalo  ponéis  2  y  por  último  en 
giro  da  lo  mismo  lo  que  pongáis  ya  que  la 
gráfica  es  totalmente  simétrica  respecto 
a  Z, 

Si  ponéis  los  datos  como  os  hemos 
dicho  veréis  aparecer  poco  a  poco  la  grá¬ 


fica  de  la  fotografía  en  vuestra  pantalla, 
ahora  si.  es  importante  que  recordéis  que 
el  programa  va  muy  lento  y  que  por  lo 
tanto  tendréis  que  tener  un  poco  de 
paciencia  hasta  que  lo  termine,  más  o 
menos  suele  acabarlo  en  unos  20  minutos 
según  la  función  y  los  puntos  a  represen¬ 
tar  en  la  misma. 

Por  último  y  para  terminar  hemos  de 
agradecer  la  colaboración  de  la  escuela  de 
informática  TRONIK  en  Barcelona. 

Esperamos  que  os  guste  el  programa. 

Para  el  apartado  de  MAGIA  he  obser¬ 
vado  que  con  el  cartucho  AYUDA  Al 
PROGRAMADOR  se  pueden  lisiar  los 
programas  de  abajo  a  arriba  para  ello  al 
hacer  LIST  pulsar  las  teclas  CTRL  y  Q  y 
el  programa  aparecerá  lentamente  al  lle¬ 
gar  al  final  del  mismo  si  pulsáis  las  teclas 
CIRL  y  A  el  programa  aparecerá  por 
bloques  de  abajo  a  arriba.  Hay  veces  que 
esto  no  ocurre,  si  pasa,  volver  a  escribir 
List  y  volver  a  pulsar  la  tecla  Q. 


► 

— 

PROGRAMA:  GRAFICOS  EN  TRES  DIMENSIONES 

290  I FSC0THENS— 0 

30©  IFD>I0THENG=1 :GOTO380 

310  I FG= 1 THENG=© ; GOTO360 

100  REM  " C 1 SH I F G I RAF I COSE  1 SPC ] 3D 

320  IFS>rK0, I > ANOSCMÍ 1 . I >RNDR=0T 

HENR=1 ;GOTO440 

i  10  PRINTCHR$<Í4> 

330  I FS>M  Í0 , 1 >  ANOS  TI  < 1 , I >THENGGT 

120  CLR 

0390 

130  I NPOT ”X [  1 SRC  D MAX .  ,  MIN  :  iX  1  ,X 

340  I FR= 1 THEN4 1 0 

0 

350  DRAW2,{ 1-1 >*6,SIT0I*6,S 

140  INPUT " V C 1 SPC 3 MAX.  „ MIM : " ; V 1 ,V 

360  IFS>Mí 1 , I >THENM£ 1 , I >=S 

0 

370  IFS<IM<0 , 1  >THEMM<0 , 1  >=3 

150  INPUT" FACTOR! 3  SPC3Z : " ;Z0 

380  SI=S 

160  INPUT" INTR,  : t!  ;  1 0 

390  NEXT sMÉXT 

l?0  INPUT "GIRO:"; AL 

400  EHO 

180  DIMMC 1.200) 

410  IFS>=M<1  I5THENSI=Mí  I  .  1-1  > 

190  FÜRK=0TO200:M<0,X>-lB23:r-Kl, 

420  I F S=ÍM < 0 , 1  y THENS I =M 1 0 , I - 1 > 

>O=0:NEXT 

430  R=0 :GOT0350 

200  GRAPHIC2 : COLOR©, 0, 1,0 

440  IFSl<=MÍ0,I“Í>THENS=t1<0,I>  :G 

210  FOR J=0T 0800 STEP  í 2 

OTO 350 

220  V2=Y0+ÍVl-V0>*J/800 

450  IFSI>=Msl ,1  —  1 }THENS=Mt 1 , I  i 

230  G=1 

460  GDT0350 

240  FORI— 1TÜ170 

470  tf=X2*SI H C AL ;■  +Y2#C0SÍ  AL  ' 

259  X2=X0+ÉX1->Í0}*  1/170 

480  Y=Y2*S  I N  <  AL '■  -X2#C0S  <  AL  > 

260  GOSU8470 

490  D=SQR<tt*X+Y*Y> 

270  3=900— <Z*Z0+J> 

500  2=EXP<-D*m*5IMC2*fT*D) 

28©  I FS>= 1 023THENS= 1 022 

510  RETIJRN 

►  i 

1 
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2  PROGRAMAS 

Sala  y  Diccionario 


Para  VÍC-20  sin  ampliación 
(la  capacidad  del  programa  diccionario  se 
puede  aumentar  con  ampliación) 

Gorka  Bueno  nos  manda  dos  programas 
interesantes;  esperamos  que  los 
usuarios  de  su  generación  tomen  ejemplo  y  nos 
manden  colaboraciones. 


Gorka  Bueno  ¡Vlcndicta  (13  unos) 
l'art.  de  Alzóla;  3-3v  G 
Bilbao- 12 
TeL:  443  28  8fl 


has  de  responder  en  el  otro. 
Funcionamiento  inverso  al  anterior. 


ria  escribid  las  sentencias  sin  el  REM.  L 
programa  en  si  lienc  cinco  posibilidades: 


I  tola,  Me  llamo  Gorka  Bueno,  tengo  1 3 
años,  vivo  en  Bilbao,  y  os  mando  dos 
colaboraciones  que  espero  os  gusten.  El 
primer  programa,  “SALA’\  es  un  simple 
juego  de  habilidad;  en  el  que  tienes  que 
pasar  por  la  sala  sin  chocar  con  los  verdu¬ 
gos.  Cabe  en  la  memoria  sin  necesidad  de 
ampliación.  El  segundo  es  un  diccionario. 
Si  no  se  es  poseedor  de  ampliación  de 
memoria  no  introduzcáis  las  sentencias 
REM,  debido  a  que  ocupan  mucha 
memoria  no  introduzcáis  las  sentencias 


Las  posibilidades  cuatro  y  cinco  sólo 
son  posibles  con  ampliación,  debido  a  la 
gran  cantidad  de  D1M. 

Yo  lie  puesto  como  ejemplo  el  caste¬ 
llano  y  el  euskera  como  idiomas,  pero  se 
pueden  cambiar  por  otros. 

El  gran  problema  es  hacer  las  datas, 
pero  con  un  poco  de  paciencia.,. 


Meter  la  palabra  en  un  idioma  (cas¬ 
tellano),  y  sacar  su  equivalente  en 
otro,  si  es  que  existe  (euskera). 

De  forma  inversa  a  la  anterior. 
Listar  todas  las  palabras  en  los  dos 
idiomas.  Al  terminar  pulsar  11  AS¬ 
TERISCO'1. 

El  ordenador  dige  una  palabra  al 
azar  en  un  idioma  (castellano),  y  tú 


Centro  COMMODORE  (SAKATI,  S.A.) 

NOTICIAS  DE  SOFT 

LISTA  DE  PROGRAMAS  PARA  SU  COMMODORE  64 
MANUALES  EN  CASTELLANO 

Programas  de  aplicación 

Superhase  64 
Base  de  datos  II 


cartucho  25.000  Pts. 

disco  5.000  Pts 

cinta  4.000  Pts. 

disco  8.000  Pts. 

cinta  7  500  Pts. 

cinta  2.000  Pts. 

cinta  2.000  Pts 

cartucho  12.000  Pts. 

cinta  3.000  Pts. 

disco  7  500  Pts, 

cinta  6  900  Pts 


disco 

disco 

cinta 

disco 

cinta 

disco 

disco 

disco 

cinta 

disco 

■cinta 

cinta 


Gráficos  64 


Busrcalc 


Velosak 

Tagsort 

Arrow 

Compactar 

Superbasic 


Control  de  almacén 

Mailing 

Lápiz  óptico 


Desensambledor 


Programas  de  juegos 

Palillos 
Ca  ktus 
Aterrizaje 
Comccocos 
King  Kong 
Laberinto 

Comando  espacial 
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Araña  lunar 
Defensa  lunar 
El  lago  de  los 
tiburones 
EE  hortelano 
La  bruja 

Guerra  de  zilones 


Batalla  espacial 
Precio  por  cinta 
Precio  en  disco 
Ajedrez  en  cinta 
en  disco 
Jareme  84 
Ca  mellos 
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Criad. 

PrflCio 

zq 

c  tílar  ffd 

liufi*  n  iomra  Feembci&c 

TOTAL 

PROGRAMA:  SRLR 

1  CO=3@720 :Q=7943 :P0KE368?8, 15 :R 
ESTOPE 

2  PU=0 :P0KE36879, 141 

5  GOSÜB900 

6  DIMD<16J  :DIH0C1'6> 

1 0  PR I NT " E 1  HOME 3 C 1 CRSRD 3 E 1 CRSRR 3 
C  9SPC 3 C  2CRSRR 3  E9SPC 3 " ; 

12  TIÍ="000000" 

1 7  0=7943 :  PR I NT " E 1 CLR 3 E 22C0MM+  3 " 

20  PR I NT " [ 1 CÜMM+ 3  E  9SHFSFC 3  C  2C0MM 
+  3  C9SHFSPC3  E 1COMM+3 " ; 

30  PR I NT " E 22CQMM+  3 " j 

40  PRINT" E 10COMM+3  E 1 1SHFSPC3 C ICO 

MM+3"; 

50  PRIHT" E 10COMM+3  E 1 SHFSPC 3  E9CQM 
M+  3  E  1 SHFSPC 3  C 1 COMM+  3 " ; 

60  PRINT" E 3C0MM+  3  E 1 3SHFSPC 3 E2SPC 

3  E 1 SHFSPC  3  E 1 COMM+  3  t 1 SHFSPC  3  E 1 COM 
M+3"; 

70  PR  I  NT  "  C  3COMM+  3  C  1 3SHFSPC  3  E  2SPC 
3 E 1 SHFSPC  3  E 1 CÜMM+  3  E 1 SHFSPC  3  C 1 COM 
M+3"; 

SO  PRINT" C3C0MM+  3  E 13SHFSPC3  E2SPC 
3  E 1 SHFSPC  3  E 1 CÜMM+  3  E 1 SHFSPC  3  E 1 COM 
M+3"; 

90  PRINT" E3COMM+3  E 13SHFSPC3  E2SPC 
3  E 1 SHFSPC  3  E 1 COMM+  3  E 1 SHFSPC  3  E 1 COM 
M+3"; 

100  PR I NT " E 3C0MM  +  3  E 1 3 SHFSPC 3  E  2SP 
C  3  E 1 SHFSPC  3  E 1 COMM+ 3  E 1 SHFSPC  3  E 1 CO 
MM+3 " ; 

1 10  PRINT" E3COMM+3  E 13SHFSPC3  C2SP 
C  3  E 1 SHFSPC  3  E 1 COMM+  3  E 1 SHFSPC 3  C 1 CO 
MM+ 3 " ; 

120  PRINT" E 2SHFSPC3 E 1CÜMM+3 E 16SH 
FSPC3  E 1COMM+3  E2SHFSPC3 " ; 

1 30  PR 1 NT "El COMM+ 3  E 1 SHFSPC  3  E 1 COM 
M+  3  E 1 6SHFSPC  3  E  3COMM+  3 " ; 

140  PR I NT " E 1 COMM+ 3  E 1 SHFSPC  3  E 1 COM 
M+3  l 16SHFSPC3  E3COMM  +  3 " ; 

150  PRINT" E 1 COMM+  3  E 1 SHFSPC 3  E 1 COM 
M+ 3  E 1 SSHFSPC  3  E  3C0MM+ 3 " ; 

1 60  PR I NT " E 1 COMM +  3  E 1 SHFSPC  3  E 1 COM 
M  +  3  E 1 6SHFSPC  3  E  3C0MM+ 3 " ; 

1 70  PR I  NT " E 1 COMM+  3  E 1 3HF SPC I E 1 COM 
M+ 3  E 1 6 SHFSPC 3  E  3CÜMM+ 3 " ; 

1 80  PR I  NT " I  1 C OMM  +  3  E 1 SHFSPC 3 l 1 COM 
M  +  3  C 1 63HFSPC  3  E  3C0MM+  3 " ; 

1 90  PP I  NT " E 1COMM+ I E 1 SHFSPC 3  E 1COM 
M+  3  C 1 SSHFSPC 3  E 3C0MM+ 3 " : 

200  PP I  NT " E 1 COMM+ 3  E 1 SHFSPC 3 [ 1 COM 
M+3 E 1 SSHFSPC 3  E  3COMM+ 3 "  ; 

.  ■  I 0  PR I  NT "ElC OMM+ 3  E 1 SHFSPC 3  E 8COM 
M  +  3  E 1 SHFSPC I E 1 1 CQMM+ 3 "  s 
220  PR I  NT " E 1 COMM+  3  E 1 SSHFSPC  3  E 1 1 C 
QMM+3 " ; 

230  PRINT" E21CCMM+3"; 

235  P0KE8 1 64+22-1 ,102: PÜKE8 1 64+2 
2-1+30720,6 

250  REMDIMX$í5> :FÜRI=RT014 zXS í I > 
=CHRíí I+65> :NEXT 
280  F0RV=1T015 

290  H=  I NT RNO <  1>#15>+1  :  T= I NT  í RHD 
<1>#15>+1 


300  D(Y>=76S0+SS+í22*Y>+H+3:OíY> 

=7630+88+ <22#Y>+T+3 

316  POKED(V> ,81 :POKEQ(Y> ,S1 :POKE 

DÍY>+C0,7:P0K£ÜÍY>+C0,5 

320  NEXT 

330  FORY=l T015 

335  W=0 

340  GETEí 

345  IFE#=" "THEN410 
350  RE RDW 

390  POKE36876,200:FORH=1TQ25:NEX 
T : P0KE36876 , 0 

400  IFPEEK<Q+W>=81THEN1000 

410  POKEQ,32:Q=Q+W:POKES,90:POKE 

Q+CO,6:W=0 

412  I FQ=?922THENREST0RE : PU=PU+ (2 
6-VRLCTIÍ >  >#100 : GOTO 10 

413  PR IHT" E 1HOME  3  E 1 CRSRD 3  C 1 1 CRSR 
R3E8SPC3" 

414  PRINT" E 1 HOME  3  E 1 CRSRD 3  E 1 CRSRR 
3 "PU ¡PRINT" C 1 HOME 3  C 1 CRSRD 3  E 1 1CRS 
RR3 "26-VñLÍTIt) : IFTI t="000026"TH 
EN2000 

415  PGKEDÍ Y> ,32 :POKEGC V) ,32 

416  DíY>=DíY>+l :OC Y>=OCY>+ 1 :IFPE 
EK (. D í  V >  >  =90ORPEEK (OÍY>  >  =90THEN  1 0 
00 

417  I FD  í Y  >=7630+88+  í 22*Y  >  + 1 9THEN 
Oí Y>=OÍ V>-16 

418  POKEOíV>,81 :P0KEDÍV>+C0,7 
420  I FO <  Y  > =7680+88+  í  22#Y  >  + 1 9THEH 
OÍY>=0ÍY>-16 

430  POKEOÍY> ,31  : POKEO < Y >  +CO , 5 
470  NEXT 
480  GOT0330 

500  OñTR— 1 ,-22,-22,-22,— 22,— 22,- 
22, -22, -22, -1,-1 „-l, -1,-1, -1,-1, 
-1,-1,-1,22,22,22,22 
510  DATR22 , 22 , 22 , 22 , 22 , 22 , 22 , 22 , 
22,22,22,22,22,22,-1,-1 ,-l ,-1,-1 
,-1,-1, -1,-1 

520  DRTR-22 , -22 , -22 , -22 , -22 , -22 , 
-22, -22, -22, -22,-1 

900  PRINT" C 1  CLP Dí* E 1 SPC 3 SRLR E 1 SF 
C ] OE  C 1 SPC  3  TORTURA E 1 SPC  3  *** " 

9 1 0  PR I NT " E  5CRSRD 3  E 1 SPC 3 DEBES E 1 S 
PC  3 PRSRR E 1 SPC 3  POR  C 1 SPC  3  LRE3SPC 3 " 

920  PRINT" C 1SPC3SRLRE 1SPC3SINE 1S 
PC  3 C HÜChR C 1 SPC 1  CON E 2SPC 3 " 

930  PRINT" El SPC 3 LOSE 1SPC 3 VERDUGO 
S. E 1 SPC  3  PRRR  E  3SPC  3 " 

940  PR I NT " E 1 SPC  3  MOVERTE , E 1 SPC  3T I 
ENESE 1SPC30UEE2SPC3" 

950  PR I NT " E 1 SPC  3  PULSRR E 1 SPC  3  UNA E 
1SPCDTECLRC5SPC3 " 

955  PR I NT " E  4SPC  3CURLQU I ERR " 

960  PRIHT" E3CRSRD3  E6CRSRR3PULSRE 
1SPC3 'C' “ 

970  GETRÍ : IFRÍ=" "THEN970 
980  I Fflí= " C " THENRETURN 
990  GÜTO970 

1000  PRINT" E 1HOME3  E9CRSRD3  E 3CRSR 
R3TEE 1SPC3HRE 1 SPC 3 APRESADO" 

1010  PRINT" E6CRSRD3  E6CRSRR30TRRE 
1SPC3VE2?" 
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1020  GETA$  :  I  FAf  =  l,S  "THENRUN 

I 

► 

2010  PRINT 11 C6CRSRD3  C6CRSRR30TRflC 

1030  IFflí="N" THENPR I NT" 1 1CLR1 " :E 

1SFC3VE2?” 

ND 

2020  GETAÍ  :IFAÍ=i,S”THEHRUN 

1040  GOTO 1020 

2030  I FH$="N” THENPR I NT"  1 1CLR3  ”  :E 

2000  PR I NT " C 1 H0ME3  É 9CRSRD 3  C 3CRSR 

ND 

R3TIEMP0I 1SPC3 ACABADO” 

1 

2040  GOTO2020 

PRÜGRRMfl:  DICCIONARIO 


1  RESTORE 

2  REMGGSUB309 

10  RESTORE 

1 1  PRINT" C1CLR3****C  1SPC3DICCION 

AR 1 0 1 1 SPC  3  11 

20  PR I NT '* [ 3CRSRD 3 1 >  í 1 SPC 3  BUSCAR  í 

I  SPC  3  EN  L  1  SPC  ]  EUSKERR1' 

30  PR I NT ” C  1 CRSRD  3  2  >  C  1  SPC  3  EN  [  1  SPC 
3 CASTELLANO” 

40  PRINT"  C  1  CRSRD  3  3  1  SPC 3 L I S TAR  " 

42  REMPR  I  NT 11  1 1CRSRD34>  1 1SPC3PREG 
UNTARÉ  1  SPC  3  EUSKERR11 

43  REMPR I NT" C 1 CRSRD  3  5  >  C  1 SPC 3  EN  C  1 
SPC  DCASTELLANO 11 

45  PRINT1'  C4CRSRD  3  11 
50  INPUTS 

60  IFS<1ORS>5THEN10 
70  I FS— 2THEN 1 50 
80  I FS— 3THEN220 

83  REM I FS=4THEN340 

84  REM I FS=5THEN400 

90  I NPUT  "II CLR  3  C  2CRSRD  3 IJ ;  Af 
100  READBÍ sRERDCÍ 
105  IFB*=”NOC  1  SPC  3EX I STE É  1  SPC  ] EN 
” THENPR INTBÍ  ; 1  C  1  SPC  3 11 ; CS  : GÜSUB99 
0 :GOTO10 

110  IFAÍOBÍTHEN100 
120  Dí=C* 

130  PRINT  C2CRSRD3I,RS^0Í 
146  GOSUB990 : GOTO 1 0 
150  I  NPUT 11  C  1CLR3  C2CRSRD3  11 
160  REAOB*:READC* 

170  I FBÍ  = "NOCI  SPC  3  EX  I  STE  1 1  SPC  3  EN 
" THENPR I NTBS ; " 1 1 SPC  3 " ;CS z G0SUB99 
0  :GOTO10 

180  IFA*OC*THEN160 
190  D*=B* 

200  PR  I  NT 11  L  2CRSRD  3  M  Ai  ,  D$ 

210  GOSUB990 ;GOTO10 

220  PRINT*1  [1  CLR 3  H 

230  READAí :READBí 

240  IFA$=MN0É 1 SPC 3 EXISTE! 1 SPC 3 EN 

II  THENPR  I NT " F I N " :  G0SUB992  s  GO  TÜ 1 0 
250  PRINT ñ*,B* 

260  GOSUB990:GÜTO230 

300  REMPRINT” C 1CLR  3  C9CRSRD3  C2CRS 
RR JESFERA, C 1SPC 3PORC 1 SPC 3 FAVOR" 

301  REMDIMXÍ<500> :DIMVÍ<500> 

305  REMX=0 :V=0 :L=— 2 


307  REMREADAÍ :RERDB$ :L-L+2 

310  REMIFA$=HNÜt 1 SPC3EXISTEÉ 13PC 

3  EN " THENRETURN 

320  REMXÍ<X>=Rí  iVÍ-TY^BS 

330  REMX=X+1 :Y=Y+1 :GOTÜ307 

340  REMPR I  NT  "El  CLR  3  11 

350  REMH=INTCRNDa>*<L/2>)  +  l 

360  REME*=X$<H> 

370  REMPR I NT " C  3CRSRD 3  M E* : I NPUT " C 
ICRSRD3  M 

380  REM I FW$OV$ THENPR  I  NT  ”  C 3CR 
SRD 3  1 1 CRSRR 3LOC 1SPC3SIENTÜ, í 1SPC 
3  ESTA  C  1  SPC  3  NHL  ” : PR I NT ” É 1  CRSRD  3  1 1 
CRSRR3ES: ";VÍ<H > :GOSUB990 :GOTO 10 

390  REMPR I NT " C4CRSRD3  C5CRSRR30. K 
.  11  :GOSUB990:GOTO10 
400  REMPR  I  NT 11 C  1  CLR  3  11 
410  REMH=INT <RNDí  !’>*<L/2>  >  +  l 
420  R£ME$=Y$CH> 

430  REMPR INT”  C 3CRSRD  3  M E*  :  I NPUT  "  í 
1  CRSRD  3  11  ;WÍ 

440  REM  I FMOX*  <  H  5  THENPR  I  NT 11  C  3CR 
SRD  3  C 1 CRSRR  3  LO  1 1 SPC  3  S I ENTO , [ 1 SPC 
3  ESTA  í  1  SPC  3  MAL ”  :  PR  I  NT  ”  í  1  CRSRD  3  C  1 
CRSRR 3ES : "XS<H> :GOSUB990 :GÜTQÍ9 
450  REMPR INT” C 4CRSRD 3 1 5CRSRR 30,  K 
. " : GOSUB990 : GOTO 1 0 

990  GETAÍ  :  IFRÍ="  11 THEN990 

991  RETURN 

992  GETAS5lFñíOM*l,THEN992 

993  RETURN 

1 1 80  DATRENERO  , URTARR I LA , FEBRERO 
, OTSfi I LR  ,  MARZO  ,  MRRTXQA , ABR I L , AP 1 
R I LA  ,  MAVO  ,  M  A I RTZ A 
1 1 90  DAT A JUN 10, EK A I NA , TUL I O , UZTA 
I LA , AGOSTO, RBUZTUfl , SEPT I EMBRE , I R 
A I LA , OCTUBRE , URR I A 
1 200  OATANOV I EMBRE , AZAROA , D I C IEM 
BRE , ABENDUR 

1210  DATALUNES , RSTELEHENR , MARTE  S 
, ASTEARTE A 

1 220  DATRM I ERCOLES , ASTEASKENA , JU 
E VES , OS  TEGUNA , V I ERNES ,  OS  T I RAL  A , S 
ABADO, LARUMEATA 

1 230  DRTRDOM I NGO , I GflNDER , PR I MA VE 
RA , UDABERR I A , VERANO , UDR , ÜTÜGO , UO 
AZKENA , I NV I ERNO , NEGUA 
10000  DATANO  EXISTE  EN, EL  D ICC 10 
NRRIO 
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Cuando  se  tiene  64  K  de  memoria, 
una  magnífica  resolución,  16  colores, 
efectos  tridimensionales  con  sprites, 
un  sonido  equivalente  al  de  un 
sintetizador,  un  teclado  profesional 
con  62  caracteres  gráficos,  toda  una 
amplia  gama  de  periféricos,  la  más 
completa  gama  de  programas 
educativos,  profesionales  y  de  video¬ 


juegos...;  en  resumen,  cuando  se  es 
un  ordenador  personal  como  no  existe 
ningún  otro  en  el  mercado  y  el  más 
vendido  mundialmente,  es  muy  difícil 
decir  sin  orgullo  que  eres  un 
Commodore-64. 

Claro  que  más  difícil  todavía  es  decir 
sin  orgullo  que  tienes  un  Commodore-64. 
¿Por  qué  no  lo  comprueba? 


COMMODORE  64 


COMMODORE  64 

LE  DA  ACCESO  A  MUCHOS 

ACCESORIOS 


Unidad  simple  de  disco  (Monofloppy)  170  K. 
Cassette. 


Ptotter  e  impresora.  4  colores, 
14  c.p.s. 

Impresora  matricial,  tractor, 
30  c.p.s. 


COMMODORE  64 
LE  MUESTRA  PARTE  DE 
SUS  PROGRAMAS 


Interface  RS232. 

Joy  Stick. 

v>.  Paddle. 

Cursos  de  Introduc¬ 
ción  al  BASIC. 


Utilitarios  y  lenguajes 

MONITOR  LENGUAJE  MACRO  ASSEMBLER. 
MAQUINA.  PROGRAMMER’S 

FORTH.  UTILITIES. 

*  LOGO.  TURTLE  GRAPHICS  II. 

PILOT.  MASTER. 


Sistemas  operativos 

FILE/BOSS.  CP/M. 

Programas  de  aplicaciones 

EASY  SCRIPT 

Proceso  de  texto  de  gran  potencia. 


CALC  RESULT. 

Hoja  electrónica  de  cálculo. 

EASY  CALC  RESULT. 

Versión  simplificada  del  CALC  RESULT. 

MAGIC  DESK. 

Proceso  de  texto  y  gestión  de  ficheros. 
AGENDA  TELEFONICA. 


Programas  educativos 


MUSIC  MACHINE. 
MUSIO  COMPOSER. 
VISIBLE  SOLAR 
SYSTEM. 

SPEED/BINGO  MATH. 
FISICA  I. 

MATEMATICAS  I. 
HISTORIA  I. 

Juegos 

JUPITER  LANDER. 
KICKMAN. 

SEAWOLF, 

RADAR  RAT  RACE. 
TOOTH  INVADERS. 
LAZARIAN. 

OMEGA  RACE. 

LE  MANS. 

PINBALL 

SPECTACULAR. 

AVENGER. 

SUPERMASH. 

...  y  seguimos  . 


GEOGRAFIA  I 
GEOGRAFIA  II. 

JUEGOS  EDUCATIVOS. 
TEMAS 

MONOGRAFICOS. 

CONOCIMIENTOS 

GENERALES. 

QUIMICA  I. 


FROG  MASTER. 

GRID  RUNNER. 
ATTACK 

OF  THE  MUTANT 
CAMELS. 

THE  PIT. 

MR.  TNT. 

6  GAME  PROGRAMS. 
BINGO. 

ROOTING  TOOTING. 

MINESSOTA  FAT'S 
POOL  CHALLENGE. 

npliando  la  lista 


El  ordenador  personal  de  la 
familia  más  potente 


commodore 

COMPUTER 


MICROELECTRONICA  Y  CONTROL,  S.A. 
c/.  Taquígrafo  Serra,  7,  57.  Barcelona-29 
c ./  Princesa,  47,  3.°  G.  Madrid-8 


o 

Comando  Oíd 

Par  Diego  Romero 


Conectar  DEN 

j Macho  visto  desde  las  soldaduras 


¿Un  programa  que  no  ocupa 
memoria?... 

Quizás  en  alguna  ocasión  has  sufrido  la 
amarga  experiencia  de  perder  un  programa 
que  tardaste  varias  horas  en  teclear,  y  por 
alguna  extraña  circunstancia  el  ordenador 
se  quedó  “colgado”  sin  hacer  caso  de  las 
teclas  R UN/STOP  y  RESTORE.  En  este 
caso,  la  única  solución  posible  era  apagarlo... 

Si  te  ocurrió  y  no  quieres  que  vuelva  a 
suceder,  o  si  eres  de  los  que  se  aplican  aque¬ 
llo  de  “Hombre  prevenido...”,  este  articulo 
puede  interesarte. 


¿Por  qué  no  respondía  a  STOP 
y  RESTORE? 

Ni  el  VlC-20  ni  el  064  disponen  de  una 
teda  de  RESET  que  es  la  que  podría  haber 
sacado  al  ordenador  de  aquella  situación. 

La  tecla  de  “RESTORE1'  es  realmente 
una  teda  como  otra  cualquiera  del  teclado, 
la  diferencia  es  que  cuando  se  la  pulsa  junta 
con  la  de  R  UN/STOP,  el  ordenador  ejecuta 
una  rutina  que  restaura  las  condiciones 
normales;  pero  si  algún  diabólico  POKE  del 
programa  afectó  a  la  rutina  que  comprueba 
esta  tecla,  tu  ordenador  no  responderá  al 
pulsarla. 


¿Cómo  añadir  una  tecla  “RESET”? 

Para  incorporar  una  tecla  de  RESET 
autentica  a  tu  ordenador,  tienes  tres  lugares 
posibles  donde  conectarla: 

El  Port  de  Usuario,  el  Port  de  Amplia¬ 
ción  y  el  Bus  de  Serie. 

Realmente  consiste  en  conectar  un  pulsa¬ 
dor  entre  la  línea  de  “reset”  de  la  CPU  y 
masa.  El  lugar  más  sencillo  es  el  Bus  de 
Serie,  pero  si  prefieres  puedes  conectarlo  en 
cualquiera  de  los  otros  dos  (mira  el  manual 
de  usuario  de  tu  VIC  o  C-64). 


¿Cómo  hacerlo? 

Necesitarás  disponer  de  un  soldador  o  de 
un  amigo  que  lo  tenga  y  te  ayude.  Compra 
un  conector  macho  DIN  de  270  grados  con 
6  patillas  como  el  del  dibujo,  y  un  pulsador 
miniatura  que  quepa  en  la  parte  trasera  del 
conector  ( para  poder  fijarlo  mecánicamente 
a  éste). 


VIC-20 

C-64 


Suelda  el  pulsador  entre  las  patillas  2  y  6 
del  conector. 

Para  probarlo  conéctalo  al  conector  tra¬ 
sero  de  tu  VIC  o  C-64.  Si  tienes  la  unidad  de 
disco  incorporada,  puedes  conectar  el  pul¬ 
sador  en  la  parte  trasera  de  ésta. 

¡CUIDADO!  Si  tienes  la  unidad  de  disco, 
debes  comprobar  que  no  hay  ningún  disco 
dentro,  antes  de  pulsar  el  “RESET”,  pues 
podría  borrar  algún  programa  o  dato. 

Cuando  tengas  todo  conectado  puedes 
encender  el  ordenador.  Después  teclea 
algunas  cosas  en  la  pantalla,  pulsa  el  nuevo 
“RESET”  y,  si  todo  va  bien,  desaparecerá 
lo  que  había  en  la  pantalla  y  aparecerá  el 
mensaje  de  puesta  en  marcha,  como  si 
hubieses  apagado  y  encendido  el  ordenador. 
Si  no  es  así,  repasa  las  soldaduras,  com¬ 
prueba  que  son  las  patillas  2  y  6,  y  vuelve  a 
probarlo. 

Una  vez  que  el  Hardware  va  bien, 
vamos  al  Software... 

Teclea  el  listado  que  aparece  a  continua¬ 
ción,  guarda  una  copia  en  cinta  para  utili¬ 
zarlo  otras  veces,  puedes  llamarlo  “genera¬ 
dor  de  OLD"  para  no  confundirlo  con  el 
programa  OLD. 

Pon  otra  cinta  en  el  DATASSETTE  y 
teclea  RUN  con  RETURN.  Aparecerá  el 
mensaje  “Press  Record  &  Pía v”,  hazlo  y 
espera  el  READY..  Ya  dispones  de  una 
copia  del  programa-comando  OLD  en 
cinta.  Si  te  apareció  el  mensaje  “ERROR 
EN  DATOS”,  revisa  las  líneas  con  senten¬ 
cias  DATA  y  corrígelas. 

¡OJO!...  El  programa  que  aparece  en  el 
listado  es  e!  que  genera  el  programa  OLD, 
pero  no  es  el  OLD,  ya  que  éste  último  no  se 
puede  listar  al  no  ocupar  ni  un  solo  BYTE 
de  la  memoria  reservada  para  programas. 


¿Cómo  utilizar  el  programa  OLD? 

Con  la  cinta  que  has,  preparado,  puedes 
hacer  la  prueba: 

1.  Teclea  un  programa  corto  o  carga 
cualquiera. 

2.  Teclea  NEW  y  pulsa  RETURN  o  el 
pulsador  “RESET”  que  has  preparado. 

3.  Comprueba  que  el  programa  ya  no 
está  (LIST). 

4.  Teclea  LOAD  “OLD”  y  pulsa 
RETURN.  Pon  la  cinta  OLD  y  espera, 

5.  Aparecerá  el  mensaje  ROUND  OLD 
y  después  alguna  “basura”  en  la  pantalla. 
¡CUIDADO!  NO  PULSES  RETURN 
AHORA. 

ó.  Pulsa  R UN/STOP  v  RESTORE, 

7.  Teclea  LIST  y  pulsa  RETURN... 
OK...  Programa  recuperado... 


¿Cómo  fue? 

El  programa  que  aparece  en  el  listado 
coloca  en  las  direcciones  S1C0O  y  siguientes 
una  rutina  de  lenguaje  máquina  que  genera 
un  programa  en  cinta  que  se  llama  OLD. 

Cuando  tecleas  LOAD  “OLD”  cargas  un 
programa  de  solo  dos  bytes  que  interceptan 
el  sistema  operativo  del  ordenador,  y  le 
hacen  que  ejecute  automáticamente  una 
rutina  en  código  máquina,  que  está  situada 
precisamente  bajo  el  nombre  del  programa 
OLD,  por  eso  no  ocupa  un  solo  byte  de  la 
memoria  de  programa. 

¿Parece  complicado?...  Lo  es,  si  no  cono¬ 
ces  tu  VÍC  ó  C-64  ni  su  lenguaje  máquina, 
pero  es  sencillo  sí  sabes  código  máquina  y 
analizas  la  rutina  que  coloca  el  “generador 
de  OLD”  en  $10)0, 

Si  no  sabes  lenguaje  máquina,  puedes 
seguir  el  cursillo  que  paso  a  paso  comienza 
en  este  mismo  número  (pág.  62),  asi  como 
coleccionar  las  recetas  del  “Recetario  de 
POKES”  (Pág.  39)  y  más  adelante  intentas 
descifrarlo  y/ o  ya  te  lo  explicaré  más  deta¬ 
lladamente. 

Un  saludo... 
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El  Misterio 
de  los  Pokes 


Por  Diego  Romero  Sabio 


sillo  de  lenguaje  máquina,  de  momento  sólo 
debemos  saber  que  el  argumento  de  la  fun¬ 
ción  USR  es  lo  que  va  entre  paréntesis  y  que 
es  transferido  a  la  rutina  de  código 
máquina.  La  función  nos  retornará  un  valor 
que  será  la  respuesta  de  la  rutina  que  haya¬ 
mos  ejecutado,  y  podemos  imprimirlo  con 
PRINT  USR  (X), 

Probar  el  siguiente  ejemplo: 

10  PG  KEO,7ó:  POK  É I ,204:  FGKE2,220: 
REM  ESTA  LINEA  ES  PARA  EL 
VIC-20 

20  INPUT  “DATO";DA 

30  PRINT  (NT (DA),  USR(  DA):  GOTO20 

Para  el  C-64  cambiar  la  línea  10  por  la 
siguiente: 

10  POK  E784,76;POKE785,2í)4;  POK  E 7 86. 
I88:REM  ESTA  LINEA  ES  PARA 
EL  C-64 

El  resto  del  programita  de  demostración 
es  igual  al  del  VIC-20, 

Cuando  programemos  en  código  máquina, 
podremos  realizar  funciones  especiales  defi¬ 
nidas  por  nosotros  mismos  y  transferir  los 


Este  mes  comenzaremos  por  las  direccio¬ 
nes  0T  I  y  2  del  VIC-20,  y  las  que  son 
funcionalmente  equivalentes  en  el  C-64,  es 
decir,  las  direcciones  784,  785  y  786, 

El  manual  de  usuario  no  deja  bien  claro 
cómo  se  puede  utilizar  !a  función  URS  (X) 
de  nuestro  BASIC,  por  tanto  vamos  a  tratar 
de  aclarar  un  poco  las  dudas  que  pudieran 
surgir  al  respecto. 

Los  POKEs  en  las  tres  direcciones  ante¬ 
riores  son  realmente  una  instrucción  de 
salto  en  código  máquina  a  la  rutina  que 
queremos  que  ejecute  e!  ordenador  cada  vez 
que  se  encuentre  una  función  BASIC  de  este 
tipo.  El  salto  propiamente  dicho  es  el  valor 
S4C  (76}  que  ocupa  la  primera  de  las  posi¬ 
ciones,  la  siguiente  posición  es  3a  parte  baja 
de  la  dirección,  y  la  última  es  la  parte  más 
alta  de  ésta.  La  X  en  la  función  USR  (X)  es 
el  argumento  de  la  función  y  es  trans¬ 
ferido  por  el  intérprete  BASIC  al 
acumulador  de  coma  flotante  número  1 
(de  este  ya  hablaremos  más  adelante  en  el 
cursillo  de  lenguaje  máquina).  Este  acumu¬ 
lador  será  estudiado  más  adelante  en  el  cur¬ 


pará metros  desde  BASIC  gracias  a  la  fun¬ 
ción  USR(X). 

En  este  mismo  número  comenzamos  un 
cursillo  de  lenguaje  máquina  para  los  que 
quieran  aprender... 

El  misterioso  POKE  que  hemos  realizado 
en  este  programa,  lo  que  hace  realmente  es 
poner  la  instrucción  de  salto  a  la  rutina  que 
ejecuta  la  función  TNT(X)  en  el  intérprete 
BASIC. 

Hasta  ahora  hemos  descubierto  el  'LMis- 
terio  de  tres  POKES”  y  la  inexplicable  fun¬ 
ción  USR(X)  que  aparece  en  el  manual  de 
usuario. 

En  el  C-64,  el  manual  de  usuario  está 
equivocado,  pues  si  lo  miráis,  veréis  que 
dice  que  son  las  direcciones  í>,  I  y  2,  sin 
embargo,  la  guía  de  referencia  del  progra¬ 
mador  sí  pone  las  direcciones  correctas. 

En  el  próximo  numero  continuaremos 
describiendo  la  función  de  los  POKES  a  dis¬ 
tintas  posiciones  de  memoria. 

Si  tenéis  dudas,  hacerme  llegar  cartas  a  la 
revista  e  intentaré  resolverlas. 

Hasta  pronto... 


GLOSARIO 


CPU 

Central  Processing  UnÍL  Unidad  central  de  proceso 
Es  la  encargada  de  interpretar  y  ejecutar  las  instruccio¬ 
nes  dd  programa. 


Addrcss 

Dirección.— Número  que  identifica  una  posición 
determinada  de  memoria  que  puede  ser  leída  o  escrita. 


Binaria 

Sistema  de  numeración  con  base  2.  Utiliza  los  gua¬ 
rismos  0  y  1- 

B1T 

Rlnary  digiT, — Dígito  binario.  Unidad  elemental  de 
información  en  el  sistema  binario  de  numeración. 
Puede  tomar  los  valores  0  ó  L 


Decimal 

Sistema  de  numeración  con  base  10.  Utiliza  los 
riamos  del  0  al  9. 


Hexa  decimal 

Sistema  de  numeración  con  base  16  que  utiliza  los 
guarismos  deí  (1  al  9  y  de  la  A  a  la  F. 


tíuffcr 

Memoria  intermedia  utilizada  para  la  comunicación 
entre  periféricos  o  entre  estos  y  la  CPU  (ej.  el  de  cassette 
o  el  de  teclado). 

Bytc 

Octeto.— Grupo  de  ocho  bits  que  pueden  ser  leídos  o 
almacenados  por  la  CPU  en  cualquier  posición  de 
memoria. 


Octal 

Sistema  de  numeración  con  base  K  que  utiliza  los 
guarismos  del  0  al  7. 


Reset 

Sena.l  o  procedimiento  de  puesta  a  cero  o  inicializa 
cíón  de  los  circuitos  y  programas. 
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RINCON  DEL  700 


Cuántas  veces  el  programador  es¬ 
cribe  un  mismo  programa  para 
realizar  una  misma  función!:  mirar  un 
bloque  de  disco,  examinar  un  fichero 
desde  determinado  registro,  la  típica 
rutina  para  cambiar  el  número  de 
periférico  o  el  nombre  del  disco,  etc,,. 
Es  muy  útil  para  los  programadores 
disponer  de  pequeños  programas  que 
realicen  funciones  concretas  en  un 
momento  dado.  A  veces  para  inte¬ 
grarlos  en  una  aplicación,  pero  casi 
siempre  para  usarlos  como  herra¬ 
mientas  propias  de  trabajo.  A  estos 
programas  se  les  llama  utilitarios,  o 
programas  de  utilidad. 

Hay  secuencias  de  instrucciones 
que  han  hecho  historia  por  haberse 
repetido  cientos  de  veces.  Por  ejem¬ 
plo,  es  fácil  visualizar  el  contenido  de 
un  bloque  de  disco  mediante  el 
siguiente  programa: 


Entre  paréntesis,  aprovecho  para 
decir  que  MEC.SOFT  aceptará  con 
muchísimo  gusto  ideas  para  nuevos 
utilitarios. 

Este  grupo  es  bastante  heterogéneo 
en  cuanto  a  tipos  de  utilitarios.  Los 
primeros,  caracterizados  por  su  pre¬ 
fijo  MD/,  son  utilitarios  de  trabajo 
para  con  MLC/DOS;  MD/CREA.- 
PANT70Ü  confiere  gran  potencia  a  la 
hora  de  diseñar  los  formatos  de  pan¬ 
talla,  y  MD/EXPA.REL7U0  permite 
solucionar  lo  que  siempre  se  preve 
pero  siempre  sucede:  que  un  fichero  se 
quede  pequeño.  Los  seis  restantes 
afectan  únicamente  a  la  unidad  de 
discos.  Para  copiar  programas  o 
ficheros  de  un  periférico  a  otro,  la 
única  solución  era  leer  secuencia  I- 
mente  (GET#)  los  dalos  del  fichero 
abierto  en  el  periférico  origen  para 
grabarlos  en  otro  fichero  abierto  en  el 
periférico  destino,  mediante  un  corto 


Serie  700  (5): 

UTILITARIOS 


10  OPEN  15,8,15  :  OPEN  2,8,2fc‘*T 
20  PRINT#15,"Ur’;2;0;P;S:  REM  P= 

PISTA  S  SECTOR 
30  FORX=  IT0255  :  GETtf2,A$  : 

PRINTAS;  :  NEXT 
40  C LOSE 2  :  GLOSE  15 

En  base  a  esto,  el  programa  suele  ir 
modificándose  para  ceñirse  a  unos 
bvtes  más  concretos,  visualizar  el 
valor  ASCII  en  lugar  del  carácter, 
modificar  bytcs  del  bloque  sin  afectar 
a  los  demás,  perseguir  los  encadena¬ 
mientos  entre  bloques  de  ficheros, 
etc...  Cuando  terminamos  lo  que  que¬ 
ríamos  hacer,  el  programa  que  tene¬ 
mos  no  se  parece  en  nada  al  original 
después  de  las  sucesivas  variaciones. 
Hemos  conseguido  nuestro  propósito 
de  la  forma  más  manual  o  artesana 
que  existe.  Es  muy  importante  que  el 
programador  tenga  los  conocimientos 
necesarios  para  acceder  de  esta  manera 
al  disco,  precisamente  por  ser  la  más 
rudimentaria;  de  la  misma  manera 
que  a  pesar  de  disponer  de  calcula¬ 
dora  debemos  ser  capaces  de  sumar  o 
restar  sin  ella:  la  calculadora  la  reser¬ 
vamos  para  operaciones  más  difíciles. 

MEC.SOFT  está  desarrollando  utí- 


Jordi  Sastre 


lítanos  para  la  serie  700.  Ya  se  comer¬ 
cializa  el  primer  lote  de  ios  mismos, 
compuestos  por  los  siguientes  pro¬ 
gramas. 

MD/CREA.PANT70Ü 

Creación  de  Pantallas  MEC/DOS. 

MD/EXP  A,  REL7GG 

Expansión  de  Ficheros  Relativos 
MEC/DOS. 

COPYFILE 

Copia  de  ficheros  entre  periféricas. 

LOOKHIR 

Visual ización  especial  del  directo¬ 
rio. 

DÍSKMON 

Monitor  de  bloques  de  disco. 

LÍNIT  CHANCE 

Cambio  de  número  de  periférico. 

HEADER CHANCE 

Cambio  del  nombre  de!  disco. 

FORMA  18000 

Cambio  de  formato  de  programas 
700  a  8000 


programa  en  Basic  (el  comando 
COPY  no  copia  entre  diferentes  peri¬ 
féricos).  COPYFILE  hace  exacta¬ 
mente  esto,  pero  en  código  máquina 
(sinónimo  de  rapidez).  Por  otra  parte, 
LGOKD1R  y  DISKMON  hacen  lo 
que  muchos  programadores  hacían 
manualmente  con  pequeños  progra¬ 
mas  que  siempre  se  escribían  de  nuevo 
porque  nunca  habia  tiempo  para 
depurarlos  y  grabarlos:  el  primero 
visualiza  lo  que  los  comandos  CA- 
TALOG  y  DTRECTORY  no  visuali¬ 
zan  (el  track  y  sector  donde  empieza 
un  fichero,  y  la  longitud  dd  record  de 
los  ficheros  relativos,...  etc,),  mientras 
que  DISKMON  edita  el  contenido  de 
un  bloque  de  disco  para  visualizar  o 
modificar  byles  del  mismo.  Todo 
programador  tiene  ya  su  rutina  para 
cambiar  el  número  de  un  periférico  o 
el  nombre  de  un  disco;  no  tendría 
ningún  sentido  que  MEC.SOFT  hubie¬ 
ra  confeccionado  los  utilitarios  UN  IT 
CHANCE  y  HEADER  CHANCE,  si 
no  fuera  porque  cada  día  hay  nuevos 
programadores  que  se  incorporan  a  la 
familia  Commodore.  Por  último, 
EORMAT8000  es  un  tema  nuevo  en 
utilitarios.  Hasta  ahora  los  programas 
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eran  siempre  compatibles  entre  los 
ordenadores  de  sistemas  existentes 
(CBM-3032,  CBM-4032  y  CBM-8032), 
pero  la  serie  700  carga  los  programas 
Basic  en  distinta  zona  de  memoria,  lo 
que  ineompatibíliza,  de  momento,  la 
carga  de  programas  entre  estas  CPUs. 

Todos  los  utilitarios  están  escritos 
en  Basic,  en  ocasiones  apoyado  por 
rutinas  en  código  máquina,  y  siempre 
utilizando  comandos  MEC/DOS,  por 
lo  que  es  necesario  tener  conectado  el 
cartucho- 

Dedicaré  una  serie  de  artículos  a 
comentarlos:  qué  hacen,  cómo  lo 
hacen,  para  qué  sirven,  su  equivalente 
en  Basic  normal,  etc.  Empezaremos 
por  el  más  equívoco  de  ellos,  el 
FORMAT8GÜO,  pues  su  nombre  puede 
inducir  a  error  a  quien  se  aventure  a 
adivinar  su  verdadera  función. 

FORMATSOOO 

Este  programa  cambia  el  formato 
de  los  programas  grabados  por  el  700 
a  formato  cargable  por  la  serie  8000  ó 
4000  (pero  no  los  “traduce”). 

El  700  es  capaz  de  cargar  progra¬ 
mas  grabados  por  CPUs  de  la  serie 
4000  ó  8000,  pero  no  a  la  inversa,  es 
decir,  el  8032  no  puede  cargar  pro¬ 
gramas  grabados  por  el  700.  ¿Por 
qué?  Cuando  se  ejecuta  el  comando 
SAVE  o  DSAVE,  los  dos  primeros 
bytes  que  se  graban  en  el  disco  son  la 
dirección  de  memoria  en  donde  el 
programa  reside.  Los  comandos  LOAD 
o  DLOAD  de  las  series  4000  y  8000 
cargan  los  programas  en  la  dirección 
indicada  por  estos  dos  primeros  byles, 
mientras  que  la  serie  700  los  ignora  y 
carga  los  programas  siempre  a  partir 
del  byte  3  de  i  banco  1  (para  cargar 
programas  en  otra  dirección  dispone 
del  comando  BLOAD).  Las  direc¬ 
ciones  de  inicio  son  diferentes  entre 
estas  CPUs  (3  para  el  700,  y  1025  para 
el  4000  y  8000).  Por  ello,  un  700  puede 
leer  programas  de  4000  y  8000  (puesto 
que  no  hace  caso  de  la  dirección  ini¬ 
cial),  mientras  que  los  4000  v  8000 
intentan  cargar  los  programas  del  700 
a  partir  del  byte  3,  lo  cual  produce 
efectos  realmente  colapsadores. 

Además,  cada  instrucción  Basic 
tiene  dos  bytes  apuntando  a  la  direc¬ 
ción  donde  empieza  la  siguiente  ins¬ 
trucción.  Estos  bytes,  llamados  links, 
se  refieren  a  la  posición  de  memoria 
absoluta,  y  no  a  la  relativa  respecto  al 
inicio  del  programa.  El  formato  de 
una  instrucción  Basic  es: 

LlinkJ  L  mi  mero]  [texto  instrucción  í.  |  [i)J 

[link]  [número]  [itrxio  instrucción  2..  J  [0] 

[link]  [número]  [rexio  instrucción  3...]  [0J 

[0J)J 


El  link  y  el  número  de  línea  ocupan 
dos  bytes,  mientras  que  la  ocupación 
del  texto  Basic  es  variable  según  la 
longitud  de  la  línea.  Un  byte  a  cero 
indica  el  fin  de  la  instrucción;  tres 
bytes  consecutivos  a  cero  indican  el 
fin  del  programa.  El  link  de  una  ins¬ 
trucción  apunta  al  link  de  la  instruc¬ 
ción  siguiente  hasta  que  éste  link  es 
cero. 

En  consecuencia,  este  utilitario 
debe  cambiar  tanto  la  dirección  de 
inicio  del  programa  como  los  links  de 
encadenamiento  entre  instrucciones. 
El  sistema  de  hacerlo  es  sencillo: 
leyendo  el  programa  secuencialmente 
del  disco  (como  si  de  un  fichero  se 
tratara)  se  efectúa  una  suma  (o  resta) 
a  cada  link  para  ajustarlo  a  la  nueva 
dirección  de  inicio. 

Una  vez  re-formatado,  es  posible 
que  el  nuevo  programa  no  funcione 
correctamente  en  la  serie  8000  si  se 


usan  comandos  de  MEC/DOS,  posi¬ 
ciones  de  la  página  cero,  funciones  del 
editor  de  pantalla,  o  llamadas  al  sis¬ 
tema  operativo  (SYS).  La  traducción 
de  todo  ello  debe  hacerse  manualmente. 

En  la  línea  1020  del  programa  se 
asigna  la  dirección  de  inicio  que  tie¬ 
nen  los  programas  en  la  serie  8000 
(¡025).  Puede  modificarse  esta  direc¬ 
ción  para  traducir,  por  ejemplo,  pro¬ 
gramas  de  700  a  C-64;  en  este  caso  la 
dirección  debe  ser  2048.  En  el  C-64,  la 
re-formal  ación  tiene  otro  handicap, 
que  es  el  tamaño  de  la  pantalla  de 
ambos  ordenadores:  el  700  tiene  80 
columnas  mientras  que  el  C-64  sólo 
tiene  40.  Además  debe  utilizarse  una 
unidad  de  discos  compatible  entre 
ambos  equipos  (por  ejemplo  los  for¬ 
matos  de  4040  y  1541  son  iguales),  o 
u  lili  zar  el  INTERPOD  para  cargar  el 
programa  en  el  C-64  desde  un  8050, 
8250,  9060  ó  9090. 


¿QUIERES  SACAR  EL  MAXIMO  PROVECHO 

A  TU  COMMODORE  64? 


Cus  25  primeros  tic¬ 
kets  recibidos  ten 
drán  d  obsequio  de 
un  programe  para  su 

COMMODORE  64 


TRGMK,  lu  amigo  informático  h>  ofrece: 

—Curso  a  distancia  del  COMMODORE. 

— iniciación  a  La  informática  y  ÍÍAS1C  del 
COMMODORE  en  nuestras  aulas. 

— Accesorios  para  el  COMMODORE  y  VI C  20. 
“Libros  y  revistas. 

—  Alquiler  de  cartuchos  de  juegos  debajo 
de  Accesorias. 


Para  rnuyor  información,  dirígele  n  TRONIK 
Higay.  I  J-13  -  Telf.  ZIZ  üü  ■  Barcelona-;;;: 


Nombre  . . . . . . 

Dirección  . «%„._•«** . . 

Población  . . .  Telf. 

Provincia  . 
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Prinls  Sofisticados 


Algunas  Ideas  para  mejorar  la  ^ 
presentación  de  los  programas  en  Basic 


Es  frecuente  que  dudo  el  esfuerzo  que  cuesta  desarrollar  un  programa  que  funcione  de  forma  segura 
no  prestemos  toda  la  atención  necesaria  al  aspecto  que  tiene  en  la  pantalla.  Para  solventar  esto, 
en  el  artículo  que  sigue  se  dan  algunas  soluciones  para  hacer  más  variado  el  Comando  Print. 


mensaje  se  recorre  al  alfabeto  hasta  llegar  al 
carácter  del  que  se  trata,  parándose  entonces; 
600  A$-“PRINT  ALFABETICO” 

610  FOR  l=ÍTO  LEN(AS) 

620  M=ASC(MjDS(A5LU)) 

630  IF  M  650 RM  90  Tí I EN  PRINT 
CHR$(M NFXT  I 
640  FOR  J— 65TO  M 
650  FOR  ZZ=lTO  20: 

NFXT  ZZ 

660  PRINT  CHR$(J);“[CRSRL]”; 

670  NFX'l  J 

680  PRINT  “[CR3RR]”; 

690  NFXT  1 

En  el  código  ASCII  la  letra  A  es  65  y  la  Z  es 
90,  la  línea  630  4  4  Filtra’1  las  caracteres  no  a  lia  bé¬ 
licos  y  los  imprime  directamente, 

PRINT  RARO  alienta  los  caracteres  en 
video  invertido  de  manera  aleatoria: 

700  AS— '  PRINT  RARO" 

710  PRINT  A$ 

720  Z1 -LENCAS): 

DIM  ZS(ZT  ) 

730  FOR  ZX-ITO  150: 

FOR  ZZ—  1 TÜ  10: 

N  EXT  ZZ 

740  ZR=LNT(ZL*RND(  1  )T  3  ) 

750  PRINT  L[CKSRLJ”;TABíZR-l); 

760  II  ZS(ZR)— 0  THLN  ZS(ZR>  1: 

PRINT  lTRVSON]M;MIDS(A$,ZR,L): 
GOTO  780 

77U  El  ZS(ZR)  l  THF.N  ZS(ZR)=0: 

PRINT  MI  D$(  A£,ZR,  I ); 

GOTO  780 
780  NFXT  ZX 

Una  matriz  ZS(]  se  utiliza  para  almacenar  d 
estado  normal/ inven  id  o  de  cada  carácter  (0  ó 
1 ).  ZR  en  la  linea  740  “escoge”  el  carácter  a 
invertir. 

El  último  ejemplo  hace  que  las  letras  suban 
una  línea  aleatoriamente.  La  técnica  es  muy 
similar  a  3a  utilizada  en  el  caso  anterior. 

800  A$=44 PRINT  AUN  MAS  RARO” 

810  PRINT  A$ 

820  ZL=LEN(A$): 

DIM  ZK(ZL) 

830  ZR— INT(ZL*RND(  I  )-r  I ); 

840  PR  INT44[CRSRU]”;T A  R(ZR-1 ): 

850  II  ZKfZR)— 0  THEN  ZK(ZR)=1: 

PRINT  'l|CRSRUj'  ;MID$(AS,ZRJ); 
44[CRSRDJ  |CRSRL]'V‘ 

GOTO  830 

H60  IF  ZK{2R)=I  THEN  ZK(ZR)-Ü: 

PRINT  MÍD$(AS3ZR,t);4TCRSRU| 
[CRSRLJ’V*  ";4i[GRSRDl”: 

GOTO  830 

Nótese  que  hay  un  espacio  entre  las  comillas 
de  las  líneas  850  y  860. 

Una  consideración  final:  No  necesariamente 
eí  uso  de  técnicas  de  presentación  poco  trilladas 
hace  que  un  programa  sea  bueno,  el  aspecto  en 
pantalla  de  un  programa  es  su  carrocería,  por 
muy  vistosa,  que  sea  no  iremos  muy  lejos  si  el 
motor  no  anda. 


No  debe  olvidarse  que  un  programa  “entra 
por  los  ojos”  dado  que  el  medio  de  comu¬ 
nicación  con  la  persona  que  lo  está  usando  es  la 
pantalla.  No  está  muy  claro  por  qué  algunos 
excelentes  programadores  suelen  “pasar  olím¬ 
picamente”  del  aspecto  exterior  de  sus  progra¬ 
mas,  quizá  ésta  es  una  costumbre  que  se  arras¬ 
tra  desde  los  tiempos  en  los  que  los  micro¬ 
ordenadores  sólo  podían  “sacar”  por  pantalla 
caracteres  alfsnumé ricos  y  poca  cosa  más.  En 
todo  caso  actualmente  ya  no  existe  excusa  para 
que  los  programas  sean  pobres  de  presentación, 
incluso  utilizando  exclusivamente  la  instruc¬ 
ción  PRINT  como  veremos  a  continuación. 

Eri  los  ejemplos  que  vamos  a  dar  se  utilizan 
algunos  trucos  para  mejorar  !a  presentación  en 
pantalla  de  una  cadena  de  caracteres  contenida 
en  la  variable  AS,  Se  usan  profusamente  las 
instrucciones  de  BASIC,  MIDS,  LEFTS  y 
KIGHTS.  Quizá  sea  una  buena  idea  resumir  el 
funcionamiento  de  estas  instrucciones. 

LEFT$(A$,X)  Aísla  X  caracteres  de  la 
cadena  A$,  contando  desde  la  izquierda.  De 
manera  que  si  AS-LlABCT>EF”  v  X-3, 
LEFT$(  AS,X)=14  ABC” . 

RIGHTS{A$,X)  Realiza  la  misma  función 
que  LEFT$  pero  contando  desde  la  derecha. 
Así  en  el  ejemplo  anterior  R1GTH$  (A$LX)  en 
el  caso  de  X=3  sería  igual  a  “DEF”. 

MIDS(A$,X,Y)  Es  algo  más  complicado: 
recoge  Y  caracteres  empezando  a  partir  del 
carácter  X.  Si  asignamos  A$=“RSTIJVWXYZ’\ 
X-5  e  Y -4,  MIDS(A$.X,Y)—VWXY'\ 

Antes  de  exponer  los  ejemplos  recordamos 
que  en  éstos  las  funciones  de  manejo  de  cursor 
y  gráficos  se  han  sustituido  por  abreviaturas. 
Ver  “CLAVE  PARA  INTERPRETAR  LOS 
LISTADOS  DE  CLUB  CÜMMGDORE” 
(Pag.  6).  El  primer  ejemplo  es  muy  sencillo  y 
sirve  para  darle  un  cierto  “suspense”  a  la  pre¬ 
sentación: 

100  A$=“P RINT  LENTO,,.” 

110  FOR  I  1TO  LEN  (AS) 

120  FOR  ZZ=ITU  200: 

NEXT  ZZ 

130  PRINT  MIDS  (AS, 1.1 
NEXT  I 
140  PRINT: 

En  la  línea  120  se  controla  la  velocidad  de  la 
presentación  con  lo  que  comúnmente  se  deno¬ 
mina  un  bucle  de  retardo,  valores  menores  de 
200  aceleran  la  impresión  y  al  revés. 

Veamos  el  siguiente: 

200  A$="  PRINT  DESLIZANTE” 

210  A$-4Í  ”+Á$ 

220  FOR  t=ITO  LEN(AS) 

230  PRINT  MIDS(AStLEN(A$>I+l,l); 

“[CRSRLÍ]” 

240  FOR  ZZ—  I TQ  25: 

NEXT  ZZ:  NEXT  í 

En  este  caso  la  presentación  se  desliza  por  la 
pantalla  de  una  marera  agradable,  los  espacios 
de  la  línea  210  determinan  la  posición  final  del 
mensaje  en  la  linea,  de  manera  que  su  número 


dependerá  de  la  longitud  del  texto,  del  ancho  de 
la  pantalla  y  de  la  posición  final  que  se  desee. 

PRINT  A  TROZOS  es  similar:  las  letras  apa¬ 
recen  de  una  en  una  para  acahar  ocupando  su 
sitio: 

300  AS- “PRINT  A  TROZOS” 

310  FOR  1=LEN( A$)TG  ISTEP-1 
320  FOR  ZZ=lto  24-LLN(A$L  ¡ 

330  PRINT  TAB(ZZ)“  ”MID$(AS,1,  í): 

“[CRSRUJ” 

340  NEXT  ZZ 
350  NEXT  I 

Cambie  el  24  en  la  linea  320  por  un  número 
menor  (P.  Ej.  10)  si  trabaja  con  un  VLC-20. 

El  siguiente  es  un  ejemplo  de  presentación  de 
un  gran  efecto: 

400  AS  “UNA  DEMOSTRACION  DE 
SUPER  PRINT” 

410  A-LEN(AS): 

IF  A/20INTÍ  A/2)  THEN  A$  -  "  ”+AS: 

GOTO  410 
420  FOR  I-ITO  A/2 

430  PRINT  T A B( 20- 1 );LE  FTS(  A$,l);  R IG  HTS 
(ASM) 

440  PRINT  “fCRSRLJl”; 

450  FOR  ZZ-1TO  50: 

NEXT  ZZ 
460  NEXT  I 

La  linea  410  expande  d  mensaje  a  un  número 
par  de  caracteres  si  es  necesario.  Aquí  se  usan 
simultáneamente  las  instrucciones  RIGHTS  y 
LEFT$.  Igual  que  antes  en  la  linca  150  hay  un 
retardo  para  controlar  la  velocidad  de  la  pre¬ 
sentación.  Esta  rutina  trabaja  mejor  con  cade¬ 
nas  de  caracteres  de  longitudes  superiores  a  20. 
Si  se  trabaja  con  un  VlC-20  se  deberá  cambiar 
eí  20  de  la  línea  430  por  un  10  y  utilizar  cadenas 
más  cortas. 

La  siguiente  rutina  permite  subrayar  lenta¬ 
mente  un  mensaje  en  la  pantalla: 

500  A^4**** DEMOSTRACION  DE  SUBRA¬ 
YADO  LENTO*****” 

510  L=40: 

IF  EEN(AS)p40  THF.N  L=LEN(A$) 

520  PRINT  LEFT$(AS,L) 

530  IF  E— 40  THEN  PRINT  “[CRSRUJ”; 

540  FOR  I  1TO  L 
550  PRINT  CURSfl 63); 

560  FOR  ZZ- 1 TO  30; 

NEXT  ZZ 
570  NEXT  l 

580  A^RIGHT$(A$5LEN(A$)-L) 

590  ÍF  ASO44”  THEN  510 

En  este  programa  AS  sedividecn  longitudes 
de  40  caracteres  (el  ancho  de  la  pantalla  en  el 
C-64)  en  tas  lineas  510,  520  y  580.  Estas  sub- 
eadenas  se  presentan  con  una  linea  en  blanco 
entre  ellas,  que  será  donde  se  realiza  el  subra¬ 
yado  (con  el  CHR$(163)  de  la  línea  550),  EJ 
proceso  continúa  mientras  exista  contenido  en 
Á$  (línea  590).  Cambie  el  40  en  las  lincas  510  y 
530  por  22  si  trabaja  en  un  VlC-20. 

PRINT  ALFABETICO  es  más  complicado 
de  explicar  que  de  escribir.  Para  cada  letra  del 
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GALERIA  DE  SOFT 

NOVEDADES 


Microelectrónica  y  Control  ha  sacado  3  nuevos  programas  para  el  C-4. 
Introducción  al  BASIC,  parte  I,  del  que  hicimos  la  reseña  el  mes  pasado  EASY  CALC 
RESULT  (20.000  pts.)  y  MACRO  ASSEMBLER  (7.500  pts,). 


Su  referencia  es  ASM  6440  y  se  pre¬ 
senta  en  disco.  Junto  al  compilador  se 
incluyen  una  serie  de  programas  comple¬ 
mentarios,  para  facilitar  el  trabajo  de  ed* 
cíón,  documentación  y  depuración  de 
programas  en  código/máquinas.  El  con¬ 
tenido  del  disco  es  el  siguiente: 

ASSEMBLER  64:  Es  el  compilador  pro- 
píamente  dicho 

CROSSREF  64:  Este  programa  permite 
elaborar  una  referencia  cruzada  al  final  de 
los  listados  generados  por  eí  compilador, 

DOS  WEDGE4:  Éste  es  un  utilitario 
que  facilita  el  trabajo  en  disco 

DOS  6.1:  En  este  fichero  está  conte¬ 
nido  el  código/ máquina  perteneciente  al 
programa  DOS  WEDGE  64 

EDITOR  64:  Amplía  las  prestaciones 
del  editor  de  pantalla  del  COMMODORE 


MACRO  ASSEMBLER 


64  para  facilitar  la  edición  de  textos/- 
fuente  para  el  compilador. 

LOLOADER64:  Amplía  las  pretensio¬ 
nes  del  editor  de  pantalla  de  COMMO- 
DORE  64  hasta  facilitar  la  edición  de  tex- 
tos/fuente  para  el  compilador. 

LQL0ADER64  y  HILOADER4:  Estos 
dos  programas  se  utilizan  para  cargar  en 
memoria  los  ficheros  creados  por  el  com 
pilador  como  código  objeto. 

MONITOR 3 8000  y  MGNITORSCOOO: 
Los  dos  monitores  son  idénticos  excepto 
en  su  lugar  de  carga  Permiten  depurar  los 
programas  en  código  máquina 

COMANDOS  DEL  EDITOR:  AUTO 
CHANCE  ■  CPUT  -  DELETE  ■  FIND  - 
FORMAT  GET  -  MLL  -  LIST-  NUMBER 
PUT, 


COMANDOS  DEL  ASSEMBLER  [AS¬ 
SEMBLER  DIRECTIVES):  BYTE  -  WORD 

.DBYTE  -  -  .PACE  -  SKIP  OPT  - 

END  -  XIB  -  .FILE  -  MAC  MND 

COMANDOS  DEL  MONITOR:  AS 
SEMBLÉ  -  COMPARE  -  DISASSEMBLE  - 
FILL  -  GO  -  HUNT  INTERROGATE 
LOAD  ■  MEMORY  ÜISPLAY  NEW 
LOCATOR  REGISTER  DISPLAY  SAVE 
-  TRANSFER 

Como  puede  observarse,  este  paquete 
permite  el  desarrollo  completo  de  progra 
mas  en  código/máquina  para  el  COM- 
MQDQRE  64,  facilitando  el  uso  de  las 
características  del  equipo  a  máximo  ren¬ 
dimiento. 

Precio:  7.500  pías. 


EASY  CALC  RESULT  permite  utilizar  la 
pantalla  del  COMMODORE  64  como  si 
fuera  una  gran  hoja  de  papel  donde  se 
escriben  cantidades  y  se  efectúan  opera 
dones  entre  ellas.  Esta  hoja  está  dividida 
en  filas  y  columnas  (63x254jr  de  manera 
que  cada  cruce  constituye  una  celda 
donde  se  escribe  una  cantidad,  un  texto 
corto  para  facilitar  el  uso,  o  una  operación 
a  efectuar  entre  dos  o  más  celdas.  En  el 
momento  en  que  se  ha  terminado  de 


EASY  CALC  RESULT 


escribir  una  cantidad  en  una  celda  se  efec¬ 
túan  todas  las  operaciones  de  la  hoja,  así 
es  muy  fácil  preparar  presupuestos  donde 
sea  necesario  determinar  rápidamente 
'  QUE  PASARIA  SI  K  y  ver  inmediata¬ 
mente  eí  resultado  de  alterar  uno  o  varios 
factores  en  un  cálculo  completo.  En  cual¬ 
quier  momento  se  puede  copiar  el  conte¬ 
nido  d  la  hoja  de  trabajo  en  la  impresora  y 
se  pueden  preparar  gráficos  de  barras 
(Histogramas)  que,  a  su  vez.  se  pueden 


volcar  en  impresora.  La  HOJA  DE  TRA 
BAJO  y  su  contenido  se  pueden  almace¬ 
nar  en  disco  o  cinta  para  trabajos  posterio¬ 
res. 

Este  programa  es  una  versión  simplifi¬ 
cada  del  que  actualmente  se  comercializa 
bajo  la  denominación  CALC  RESULT 
(ADVANCED!  El  cartucho  se  suministra 
con  un  completo  manual  en  castellano. 

Precio:  20.000  ptas. 


PROGRAMAS  VIC-20 

Programas  en  Disco 


Pesetas 


Agenda . . . . . . . * . .  .  . . .  •  •  5 ■  000 

Permite  contener  4  páginas  de  información  de  1 1 4  personas,  entidades,  etc,  Podiendo  añadir,  cambiar 
o  borrar  la  información  que  se  desee.  En  castellano,  necesita  ampliación  de  8K,  Presentado  en  caía. 

QSL . . . . . . . . . .  3.000 

Registro  de  contactos  para  radioaficionados,  versión  en  disco  Necesita  ampliación  de  8K  Presentado 
en  caja. 

Test  Demo .  3.000 

Programa  de  test  pa^a  la  unidad  de  disco.  Nota:  este  disco  es  el  que  se  suministra  con  la  unidad  de 
disco  V3C-1  540 
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Assembier . 5.000 

Editor  y  compilador  en  BASIC  para  rutinas  en  lenguaje  máquina  del  6502  Necesita  ampliación  de  3K 
Acompañado  de  manual  en  inglés 

English  languaje . 2.500 

Versión  en  disco  del  programa  en  cinta,  dado  que  al  manejar  ficheros  resulta  mucho  más  rápida  su 
utilización  Necesita  ampliación  de  8K,  Presentado  en  Caja. 

Quiz  Master . 2.500 

Versión  en  disco  del  programa  en  cinta.  Necesita  ampliación  de  8K.  Presentado  en  caja. 

Matemáticas  1  (nivel  BUP).. . 2.500 

Versión  en  disco  del  programa  en  cinta  Necesita  ampliación  de  8K.  Presentado  en  caja 

Simplicalc . 13.000 

Hoja  de  Trabajo  Electrónica  60  columnas  por  100  filas  Max  Necesita  ampliación  de  16  K 

Vic  File .  13.000 

Base  de  datos  para  el  ViC  20  con  posibilidad  de  definir  el  formato  de  los  campos.  Necesita  ampliación 
de  16K  Ideal  para  fichero  de  clientes. 

Vic  Writer, . . 13.000 

Proceso  de  texto  muy  potente  y  rápido  Necesita  ampliación  de  8  ó  16K 

Continúan  en  ei  próx .  ng 


_ __  SOFTWARE  COMMODORE  64  _ _ 

Utilitarios  y  Lenguajes 

Pesetas 

Monitor  lenguaje  máquina  .  10.000 

Este  cartucho  permite  entrar  y  depurar  rutinas  en  código  maquina  Dispone  de  un  conjunto  de  instruc 
ciones  muy  potente  Ideal  para  iniciarse  en  las  técnicas  de  programación  en  lenguaje  máquina. 

Presentado  en  cartucho 

Forth  . . . . . . . . . . .  20.000 

Nuevo  lenguaje  de  alto  nivel  y  gran  potencia  que  permite  definir  las  propias  instrucciones  En  una 
aplicación  se  puede  trabajar  en  rutinas  críticas  con  el  Assembier  que  contiene  Presentado  en 
cartucho 

Logo . . . . . .  16.000 

Es  un  lenguaje  que  utiliza  Procedimientos  (Procedures)  que  pueden  ser  definidos  por  el  usuario  a 
partir  de  los  existentes  en  el  lenguaje  (Primitives),  por  lo  que  resuda  de  gran  sencillez  y  posee  una  gran 
potencia  Ideal  para  enseñanza  Alta  resolución  y  Sprites  incorporados  Presentado  en  disco. 

Pilot .  16.000 

Lenguaje  específico  para  educadores  Permite  definir  el  juego  de  caracteres  y  manejar  Sprites,  alta 
resolución  y  sonido  fácilmente  Presentado  en  disco 

Macro  Assembier . 7.500 

Potente  paquete  editor  ensamblador  que  le  permitirá  desarrollar  y  depurar  fácilmente  sus  programas 
en  código  máquina  Presentado  en  disco 

Programmer's  Utilities . 7.500 

Paquete  de  utilidades.  Contiene  editor  de  caracteres,  editor  de  sprites,  monitor  lenguaje  máquina  y 
otros  programas  que  ¡e  podrán  ayudar  a  programar  más  rápidamente  Presentado  en  disco 

Turtle  Graphics  II . 15.000 

Subconjunto  del  lenguaje  LOGO  Es  ideal  para  principiantes  en  edades  comprendidas  entre  6  y  60 
años  Presentación  en  cartucho,  uliliza  indistintamente  disco  y  cassette. 

Master..... .  25.000 

Base  de  datos  de  gran  potencia.  Incorpora  nuevas  instrucciones  que  facilitan  el  trabajo  en  cuatro 
grandes  áreas 

—  Edición  y  formatación  de  datos  en  pantalla. 

—Edición  y  formatación  de  datos  en  impresora 

—  Manejo  de  ficheros 

—  Incorpora  instrucciones  de  BASIC  4 

Facilita  el  desarrollo  de  aplicaciones  profesionales  Presentado  en  disco  Manual  en  castellano 
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Magia 


Hemos  contactado  con  los  espíritus 
más  poderosos  del  mundo  de  la 
informática  para  que  nos  trajeran  esta 
selección  de  consejos  útiles,  indicaciones  y 
métodos.  Estas  maravillas  de  la  magia  les 
van  a  encantar  con  unos  métodos 
fantásticos  para  que  Vd. 
aproveche  al  máximo  su  sistema 


La  MAGIA  son  trucos,  ¡a  MAGIA  es 
divertida. 

La  MAGIA  es  hacer  l o  que  nadie  se 
ha  atrevido. 

La  MAGIA  es  una  columna  mensual  ¡lena 
de  consejos,  trucos f  de  esto  y  aquello  del 
mundo  del  software,  hardware  y  aplicaciones . 

Cada  mes ;  MA  GIA  les  trae  trucos  breves  y 
útiles  de  informática  procedentes  de  todo  el 
mundo  -  trucos  descubiertos  por  los  demás 
que  hacen  que  la  informática  sea  más  fácil, 
más  divertida  o  más  animada . 

MAGIA  habla  de  ideas  sencillas,  progra¬ 
mas  de  una  sola  línea,  subrutinas  útiles, 
hechos  de  informática  poco  conocidos  y  otras 


cosas  de  interés.  Buscamos  material  nuevo  o 
renovado  que  resulta  ser  de  valor  actual  para 
usuarios  de  equipos  Commodore  y  que  puede 
utilizarse  con  un  mínimo  de  tiempo,  esfuerzo 
o  conocimientos  teóricos. 

MA  GIA  resulta  ser  la  fuente  más  completa 
de  información  para  la  informática  práctica , 
además  de  ser  un  foro  internacional  para 
compatir  trucos  con  otros  aficionados.  Envíe 
sus  trucos  a: 

COMMODORE  WORLD 
Pedro  Muguruza.  4 
Madrid- 16 

La  revista  " Commodore  World "  sorteará 
seis  paquetes  de  software  en  julio  y  diciembre 
entre  todas  las  contribuciones  publicadas. 
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A  continuación  escribo  alguna  observación  que  he  hecho  con  mi 
“CÜMMQDORL-64”  y  que  se  puede  incluir  dentro  de  la  sección 
de  “MAGIA”: 

Si  pongo  lo  que  son  las  instrucciones  en  minúsculas  y  lo  que  son 
las  variables  en  mayúsculas,  al  “correr”  el  programa  me  aparece 
un  error  en  las  instrucciones  en  las  que  he  puesto  las  variables  en 
mayúsculas.  El  error  se  debe  a  que  esas  variables  no  aparecen  en  el 
listado. 

De  donde  se  deduce  que  al  colocar  en  un  mismo  programa  minús¬ 
culas  y  mayúsculas,  estas  últimas  deberán  ir  siempre  entre  comi¬ 
llas,  de  lo  contrario  se  generará  ERROR. 

Esto  conviene  recordarlo  cuando  se  trabaja  con  mayúsculas  y 
minúsculas  en  un  mismo  programa. 

También  deben  estar  entre  comillas  todos  los  caracteres  gráficos 
de  la  parle  frontal  de  las  Ledas, 

X  M.  V. 

(Iniciales  sólo  por  deseo  del  colaborador). 

o  O  o 

Amigos  dé  Commodore  World,  os  envío  la  siguiente  colabora¬ 
ción  para  el  apartado  de  “Magia”. 

SUBRUTINA  MAGICA  DL  FACTORIALES, 

Después  de  observar  en  el  manual  del  V[C  las  maravillosas  posi¬ 
bilidades  que  tiene  esta  máquina  para  crear  funciones  trigonomé¬ 
tricas  complejas,  me  quedé  un  poco  decepcionado  al  ver  que  no  se 
nombraba  para  nada  funciones  tan  importan  Les  como  el  Factorial 
(!),  fundamental  en  combinatoria  (donde  se  pueden  hacer  progra¬ 
mas  muy  interesantes), 

La  fórmula  a  utilizar  es  la  siguiente: 

5000  INPUT  A 

5010  C=INT(A-1):B=1NT(A) 

5015  IFA<OOR  A > 33  TM EN  5100 
5020  FÜR  J=CTG  1  STEP-I 
5030  13= B*  J 
5040  NEXT  J 

5050  11  A=0  OR  A=l  THEN  B  I 
5060  PRINT  B 
5070  RETURN 

5100  PRINT  “LO  SIENTO,  ESTE  FACTORIAL  NO  PUEDO 
CALCULARLO”. 

5110  RETURN. 

Desde  luego  no  voy  a  revelaros  Ja'  pócima  secreta,  pero  me 
parece  que  está  claro  que  la  base  del  conjuro  es  el  bucle  del  paso 

David  Pérez  Corral  -  15  años, 
Pasxéig  de  Sam  loan  171 ,  5V  45 
Barcelona- 37 

NOTA:  Si  este  truco  no  os  parece  interesante  o  puede  ser  mejorado, 
por  favor,  comunicádmelo. 

o  O  o 

Amigos  de  Commodnre  World: 

En  primer  Jugar,  os  felicito  por  la  revista  que  estáis  realizando,  la 
cual  parece  interesante  para  la  multitud  de  usuarios  del  Commo- 
dore.  Y  aprovecho  la  ocasión  para  enviaros  un  pequeño  truco 
sobre  VIC-20:  La  forma  normal  de  detener  un  programa  a  la 
espera  de  que  el  usuario  pulse  una  tecla  es  mediante  la  sentencia 
GET:  100  GET  A$:  IF  A$=4i,,THEN  100. 

Esta  sentencia  ocupa  21  bytes,  además  de  los  que  ocupe  la 
cadena  AS.  I- na  forma  elegante  de  hacer  lo  mismo  economizando 
algunos  bytes  es  medíante  WAIT; 

100  POKE  198,  0:  WAIT  398.1.  En  caso  de  que  interese  saber 
qué  Leda  ha  sido  pulsada,  puede  usarse  GFT  AS. 

Felicitándoos  una  vez  más  por  d  buen  trabajo  que  seguro  vais 
a  realizar,  y  ofreciendo  toda  la  ayuda  que  me  sea  posible,  me 
despido. 

Hasta  pronto. 

Alfredo  S indos  Palero. 

A  vela .  Logroño,  42  -  Villa  Esther. 
Madrid-22 . 

o  O  o 

(VIC-20)  -  Si  apretamos  la  tecla  RE  N /STOP  y  la  tecla  SHTFT/ 
I  OCR  simultáneamente  (a  la  vez)  y  suavemente  aparece  la  palabra 
LOAD.  Pero  cuidado  no  dejar  la  teda  SH1FT/LOCK  apretada:  en 
este  caso  repetir  de  nuevo  ya  que  no  siempre  da  resultado. 

Entonces  apretamos  normalmente  la  tecla  PLAY  del  Hatacas - 
sétte  y  ahi  la  novedad  reside  en  que  una  vez  cargado  el  primer  pro¬ 
grama  encontrado  lo  ejecuta  automáticamente.  Es  decir,  sin  necesi¬ 
dad  de  teclear  Ea  palabra  RUN.  Es  bastante  cómodo. 

¿Saludos!  de 

Cristóbal  Mora  Pol 

C/ Reina  María  Cris  lina,  54-!'-  3 

Palma  de  Mallorca  (Raleares) 


€p: 

Para  posicionar  eí  cursor  en  un  sitio  determinado,  existe  otro 
truco  además  de  los  publicados  en  d  numero  anterior,  es  el 
siguiente: 

Para  el  VIC-20:  PRINT  “HOME”  TAR  (22  X  FILA  + 

CO  L U MN A);  “funciona” , 

para  el  C-Ó4  debéis  sustituir  el  22  por  40. 

Marisa  L  Alvaro 
Fonotagos,  1 
Alcor  con, 

o  O  o 

Queridos  amigos:  Continúo  mideJicitación  para  este  2°  número 
de  la  revista  que  no  tiene  desperdicio,  creo  que  ios  “Commodoria- 
nos”  estamos  de  enhorabuena.  Os  envió  un  saludo  y  unos  Pokes 
para  “Magia”.  i 

Ln  la  posición  774  tenemos  un  Poke  muy  interesante,  relacio¬ 
nado  con  al  forma  de  Listar  del  Commodore  64r  Haciendo  Poke 
774,255  impide  la  representación  del  Listado:  Poke  774,0  nos  Lista 
única  mente  los  números  de  sentencia  sin  posibilidad  de  ver  d  con¬ 
tenido  de  cada  linea.  Poke  774.34  llena  la  pantalla  con  un  Seroll  de 
exi raños  signos  y  finaliza  con  CLR;  Poke  774,207  le  dará  continuos 
errores  de  línea.  Ensayando  con  distintos  valores  se  descubren 
cosas  realmente  curiosas  c  introduciéndolas  en  un  programa  que  se 
autoejecuta  impide  su  listado  a  los  curiosos  que  no  conozcan  la 
palabra  “Mágica”  que  vuelve  todo  a  la  normalidad;  Poke  774,26. 

Domingo  Márquez  Gallego. 

Parque  Posa,  X  4-  C 
Más  toles  í Madrid) 

Telé/:  614  21  48 

o  O  o 

Os  mando  el  siguiente  programa  para  la  sección  Magia, 

Consiste  en  crear  un  juego  de  caracteres  de  doble  altura  y  forma¬ 
tear  pantalla  para  esta  presentación,  teniendo  en  cuenta  que  no 
caben  todas  las  columnas  en  9a  píntala,  sólo  13. 

Esta  versión  es  para  el  VIC-20  que  aunque  “chupa”  mucha 
memoria  funciona  en  un  VIC-20  sin  expansión  y  se  puede  utilizat 
en  un  programa  de  presentación  que  cargue  automáticamente  al 
siguiente. 

Sien  lo  mucho  no  ofrecer  una  versión  para  él  C-64  pero  no  tengo 
su  mapa  de  memoria. 

5  Pl-PEKK  (657):  P2=PLLK  (56):  P3=PEEK  (55):  P4=PEEK 
(36869):  P5-PEEK  (36867):  P6-PEEK  (36865  ) 

6*PÜKE  657,128 

7  POKE  56.20:  POKE  55,0 

8  A “5 120:  B"7678 

9  I  ÜR  T=A  Tü  13  STLP  2 

10  P-PEEK  (32768 +{ T-A)/2) 

11  POKE  T,P:  POKE  T+I,P 

12  NEXT  T 

13  POKE  36.869,253 

14  PRINT  CHR$  (147):  POKE  36867,  29:  POKf  .16865,29 

15  PRINT  JORGE  RODRIGUEZ” 

[6  STOP 

17  POKE!  657,  Pt:  PÜKL  56,P2:  POKE  55.P3 

18  POKE  36869.  P4 

19  POKE  36867.  P5:  POKE  36865.  P6 

20  PRINT  “(CLR)  (4  espacios)  "LCI  IR$( 34)“ Nombre  del  pro¬ 
grama"  CHR$  (34) 

21  POKL  631,19:  POKE  632,131:  POKE  198.2:  NEW 

El  programa  en  si  está  compuesto  por  las  lineas  6  a  la  14. 

i  as  líneas  17,  3  8,  19  reestablecen  al  VIC  a  la  normalidad  con  los 
valores  cargados  en  la  linea  5. 

La  linea  20  imprime  en  pantalla  el  nombre  del  programa  a  car¬ 
gar  desde  cinta,  y  la  línea  21  ejecuta  el  LOAD  del  programa. 

Paia  leer  un  programa  desde  el  diseca  modificar  la  línea  20  por  20 
PRINl  “(CLR)  (4  espacios  )*XH  1R$(  34)“  Nombre  del  progra- 
ma“CH  R$T34)",8” 

Vuelvo  a  advertir:  el  programa  de  los  caracteres  a  doble  altura 
sólo  está  comprendido  entre  las  lincas  6  a  la  14,  siendo  la  linea  15 
una  demostración.  Es  Le  programa  sólo  funciona  en  el  VIC-20. 

I  as  líneas  5,  17.  18,  19  son  para  restablecer  la  configuración 
inicial  del  VIC. 

Las  lincas  21)  y  21  son  para  cargar  desde  un  programa  otro  >  que 
se  e|ecute  automática  mente.  Esta  técnica  funciona  en  el  VIC-20  v 
en  el  C-64. 

Bueno  después  de  esto  me  despido  esperando  no  causar  muchas 
molestias  y  que  me  contestéis  lo  antes  posible. 

Saludos, 

Jorge  Rodríguez  Piñeyro. 

Polígono  San  Pablo,  Barrio  C\ 

Torre  2 
Sevilla-? 
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VIC-20 

Guía  del  Usuario 


Libro  útil  para  aprendizaje  y 
consulta  que  explica  detallada* 
mente  todo  lo  que  el  manual  dd 
usuario  deja  sin  adarar 

Enseña  todo  lo  referente  al 
VIC-20,  desde  cómo  conectarlo 
hasta  cómo  utilizar  al  máximo 
todos  sus  periféricos. 

Comienza  explicando  cómo 
utilizar  d  VIC-20  en  el  modo  de 
comandos  directos  y  en  el  de 
programa,  cómo  editar  en  panta¬ 
lla,  cómo  utilizar  d  teclado 
correctamente,  etc, 

Eri  el  capitulo  de  programa¬ 
ción  describe  todos  los  comandos 
y  las  Junciones  del  BASIC  dd 
VIC-20  con  detalle. 

En  “Programación  avanzada  " 
se  estudian  las  cadenas  numéricas 
y  alfa  numéricas,  así  como  el 
formateado  de  entradas  y  sali¬ 
das,  junto  con  subrutinas  de 
manejo  de  datos,  el  reloj  de 
tiempo  real  y  los  números  aleato¬ 
rios. 

El  5Q  capítulo  analka  el  fun¬ 
cionamiento  de  Jos  mandos  “joys- 
tick'"  y  la  utilización  dd  teclado 
para  controlar  los  juegos. 

El  controlador  de  vídeo,  los 
juegos  de  caracteres  y  los  mapas 
de  memoria  de  pantalla  y  colores 
son  el  objeto  de  es  Ludio  del  6-' 
capítulo  además  de  animación  de 
juegos,  caracteres  personalizados 
en  alia  resolución,  programas 
con  caracteres  definidos  por  d 
usuario,,  gráficas  de  alta  resolu¬ 
ción.  multicolor,  etc 

El  7o  es  un  estudio  detenido 
sobre  el  sonido  y  su  generación 
en  el  VTC-20. 

El  capitulo  nos  presenta  la 
gama  de  periféricos  dd  VIC-20, 


BASIC  Básico 


su  significado,  y  nos  presenta  el 
equipo  físico  (hardware)  y  los 
programas  (hardware),  cómo  se 
almacenan  y  cómo  se  imprimen. 
Nos  presenta  la  gama  de  periféri¬ 
cos  que  se  pueden  utilizar  con  un 
ordenador. 

El  tercer  capí  Lulo  es  d  primero 
que  nata  de  BASIC  propiamente 
dicho  y  nos  presenta  las  primeras 
instrucciones  que  debemos  cono¬ 
cer  { PRINT,  LIST,  RUN  y 
NEW).  En  el  cuarto  conocemos 
las  variables  como  medio  de 
almacenamiento  de  datos.  El  5U 
demuestra  d  modo  de  introducir 
datos  (INPUT),  y  en  sucesivos 
capítulos  trata  las  sentencias 
condicionales  (1F/THEN),  los 
bucles  (FOR/NEXT),  números 
aleatorios,  sentencias  READ/DA- 
1A,  subruiinas  (UÜSUB),  etc., 
terminando  con  un  capítulo  que 
trata  sobre  el  futuro  de  las 
computadoras. 

Todos  los  capítulos  van  muy 
detallados  y  con  muchos  ejem¬ 
plos  de  todo,  y  todo  lo  que  apa¬ 
rece  en  este  libro  es  válido  para 
cualquier  marca  de  microorde¬ 
nador  que  trabaje  en  BASIC  Al 
final  de  cada  capitulo  existe  un 
cuestionario  para  comprobar  que 
se  ha  entendido  todo  lo  tratado 
en  él. 


Ideal  para  cualquier  edad  sin 
necesidad  de  tener  conocimientos 
previos  sobre  informática. 

En  el  prólogo  y  primer  capi¬ 
tulo,  a  modo  de  cuento,  nos  pre¬ 
senta  a  Gerardo  que  es  una  per¬ 
sona  totalmente  ajena  a  la  informá¬ 
tica  y  decide  introducirse  en  este 
mundo.  La  toma  de  contacto  la 
hace  con  un  pequeño  retroceso 
histórico  para  ver  el  nacimiento 
de  lós  primeros  ordenadores  y  las 
aplicaciones  para  las  que  fueron 
diseñados,  así  como  sus  presta¬ 
ciones. 

En  el  segunda  capitulo,  ya  en 
tono  serio,  nos  da  una  serie  de 
definiciones  fundamentales  con 
explicaciones  muy  sencillas  sobre 


deteniéndose  en  el  estudio  de  los 
comandos  de  control  del  eassete, 
disco,  módem  o  impresora. 

En  los  apéndices  aparecen  un 
diagrama  de  hloqucs  del  VIC-20, 
el  mapa  de  memoria  del  VI C  y  la 
tabla  de  las  rutinas  KFRNÁL, 
los  coneutores  de  entrada-salida, 
labias  de  conversión,  códigos  de 
caracteres  y  sonido,  mensajes  de 
error,  sentencias  y  funciones 
BASIC 

En  resumen  se  trata  de  un  libro 
muy  úll]  para  todo  usuario  del 
VIC-20,  que  quiera  tener  mas 
inlormación  sobre  el  funciona¬ 
miento  y  posibilidades  de  su  apa¬ 
rato  y  prefiera  una  alternativa  a 
la  guia  de  referencia  de!  progra¬ 
mador,  ya  que  sus  contenidos  son 
semejantes  aunque  varía  la  pre¬ 
sentación  y  exposición  de  las 
diferentes  materias. 


Guía  del  Ordenador  Personal  PET/CBM 


Describe  los  siguientes  ordenadores  de  Com- 
modore: 

PFT  2001/8K.  200I/8N,  2GGI/16N,  2001/- 
32N,  CBM2001 ,  16B,  200 1/32 B  y  las  series  CBM 
4000  y  CBM  8000,  sus  teclados,  pantallas,  pe  rifé  ri¬ 
cos  y  conexiones. 

Las  versiones  BASIC  estudiadas  son  las  l.X, 
3.X,  y  4.X,  donde  X  es  c!  número  de  Ja  subversión. 
Contenidos: 

Introducción  a  los  ordenadores  CBM,  funcio¬ 
namiento,  edición  en  pantalla,  programación, 
características  especiales,  dispositivos  periféricos, 
información  del  sistema,  BASIC  C  BM  y  apéndices. 

Entre  los  apéndices  figuran  los  códigos  de  carac¬ 
teres,  mensajes  de  error,  bibliografía  sobre  BASIC 
y  publicaciones  relacionadas  con  CBM,  Tablas  de 
conversión,  variaciones  del  nivel  de  revisión  2  de 
memorias  ROM,  mapas  de  memoria  y  tablas  sobre 
las  direcciones  de  rutinas  BASIC  incluidas  en  la 
ROM. 


Quien  ya  conozca  el  estilo  de  Adam  Gsburnc 
sabe  que  todos  los  capítulos  están  tratados  con 
mucho  detalle,  ilustrados  con  cuadros  y  tablas,  e 
incluyen  ejemplos  prácticos  de  cada  explicación 
teórica. 

Es  por  tanto  un  buen  libro  de  consulta  para  los 
usuarios  de  los  PEI /CBM  y  útil  para  todo  el  que 
desee  conoce  f  algo  mas  sobre  el  BASIC  de  estos 
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GRAFICOS 
PARA  EL  64 

Vengo  buscando  desde  hace  bastante  tiempo 
conseguirlo,  la  dirección  donde  pueda 
adquirir  un  cartucho  (de  los  que  se  introducen 
directamente  en  el  ordenador,  que  cumpla  al 
menos  como  el  Supcr&xj&ndei  lo  hace  con  el 
VlC-20;  naturalmente  para  el  Com modere  f>4). 


Somos  una  sociedad  de  tipo  cultural  y  aca¬ 
ba  nu>s  de  formar  un  club  de  usuarios  de 
microordenadores,  enfocado  principalmente  al 
Commodore  y  al  Sinclair,  por  ser  los  más  ven¬ 
didos  en  España  a  nivel  personal. 

Desearíamos  saber  en  qué  medida  pueden 
ustedes  colaborar  con  nosotros;  pues  partimos 
de  cero,  y  sobre  todo  en  la  coordinación  de 
cursos  baste  ya  que  disponemos  de  amplios 
locales  y  personal  cualificado  para  impartir 
clase  de  programación. 

También  agradeceríamos  que  en  el  próximo 
número  de  la  revista  dedicasen  unas  líneas  a  la 
información  sobre  la  creación  de  dicho  club 
Por  nuestra  parte,  no  dudaremos  en  enviarles 
los  programas  que  aquí  vayan  surgiendo,  asi 
como  trucos  de  programación  que  aquí  se  des¬ 
cubran,  y  las  actividades  que  se  estén  llevando  a 
cabo  en  cada  momento. 

Esperando  su  grata  contestación,  reciba  mi 
más  cordial  saludo. 

LUÍS  MARCO  NI  SUAREZ  l  I RITES 
SECRETARIO 
DEL  CIRCUI.  0  O  ( PRENSA  ,V-  Vi G (JES. 


Soy  suscriptor  de  los  "viejos'’  desde  el  número  uno.  Soy  suscriptor  de 
COMMODORE  INTERNACIONAL  (Inglesa)  y  de  un  montón  más  de 
revistas  de  informática. 

Quisiera  que  ustedes  fueran  distintos  de  las  demás  revistas  de  informá¬ 
tica,  que  todas  terminan  siendo  del  Vic-20  ó  del  ZX  como  si  no  existiesen 
más  ordenadores. 

QUISIERA  QUE  HICIERAN  HONOR  AL  NOMBRE  QUE  LE  HAN 
PUESTO  A  LA  CRIATURA  V  NO  SE  OLVÍDEN  QUE  COMMODORE 
SON  TAMBIEN  EL  COMMODORE  2000  y  EL  3000  ?  TAMBIEN  EL 
4000,  el  8000  v  todos  los  demás  y  que  como  DIVER  LIMENTO  EXISTEN 
EL  VIC  20  v  EL  COMMODORE  64. 

Tengo  un  COMMODORE  3032  y  es  más  difícil  conseguir  software  y 
aplicaciones  como  extensiones  del  pon  para  comandar  y  controlar  procesos, 
etcétera,  etc.,  que  un  ciego  ver. 

He  contactado  con  el  representante  del  Commodore  en  cslu  provincia, 
que  es  un  buen  amigo  y  me  informan  que  MICROELECTRONICA  NO 
QUIERE  SABER  NADA  DE  LOS  2000  y  3000. 

Dejo  colgada  mi  pregunta,  ¿COMMODORE  WORLD  TAMBIEN  SI 
VA  A  OLVIDAR  DE  LOS  ESPAÑOLES  QUE  CON  GRANDES  SACRI¬ 
FICIOS  Y  SIENDO  LOS  PIONEROS,  NOS  EMBARCAMOS  EN  COM¬ 
PRAR  UNOS  EQUIPOS  CAROS  Y  HOY  NOS  VEMOS  DESCOI  GADOS 
DEL  CARRO  DE  LA  INFORMATICA? 

LES  SEGUIRE  POR  UN  PERIODO  DE  UN  AÑO.  Si  ustedes  son 
conscientes  del  nombre  que  le  han  puesto  a  su  revista,  sin  duda,  tendrán  en 
mí  un  suscriptor  por  mucho  tiempo. 

A R  TEMIO  G  ONZA  L EX  PEREZ  (A R  G O  GA  S) 
FERNANDO  AROXENA  QUINTERO,  / 
(POLIGONO  COSTA  SUR) 
TELEFONOS  22  42  44-45 
SANTA  CRUZ  DE  TENERIFE 

Aunque  no  ayude  gran  cosa,  podemos  decir  que  estamos  de 
acuerdo,  y  que  la  situación  es  indi  abl  adamen  Le  frustrante.  La  situa¬ 
ción  del  pionero  es  siempre  altamente  injusta.  No  pretendemos  discul¬ 
par  a  la  easa  Commodore  al  decir  que  la  situación  de  los  PETS  es  la 
misma  que  la  de  todos  los  equipos  pioneros  de  cualquier  otra  firma  de 
ordenadores,  pero  la  triste  realidad  es  esa.  El  micro  (de  cualquier 
marca)  nació  antes  de  que  las  firmas  creadoras  fueran  conscientes  del 
futuro  impacto  y  necesidad  de  un  amplio  sofu 

El  impacto  se  produjo,  la  informática  se  desbordó  y  los  equipos  se 
sucedieron  unos  a  otros  a  una  velocidad  no  anticipada.  Las  casas  de 
soft  nacieron,.,  para  el  último  equipo,  olvidando  a  los  pioneros. 

En  Microelectrónica,  con  quien  hemos  hablado,  reconocen  este 
problema  pero  se  reconocen  impotentes,  sin  embargo,  nos  dicen  que  su 
Departamento  de  Soft  atenderá  todas  las  consultas  que  se  le  bagan 
(Sres.  Masats  o  Navarro)  e  intentarán  ayudar  en  lo  que  puedan. 

Nosotros  por  nuestra  parte  vamos  a  hacer  lo  imposible  para  sacar 
información. 

Desde  aquí  hacemos  una  llamada  de  S.O.S,  URGENTE  a  todos 
los  distribuidores  nacionales  o  extranjeros  y  a  todos  nuestros  lectores 
para  que  nos  envíen,  tanto  a  nosotros  como  a  tí  directamente,  toda 
información  por  pequeña  que  sea  sobre  los  PE  I  S, 

Esperamos  y  deseamos  poder  darte  el  servicio  que  necesitas. 


En  primer  lugar,  quisiera  felicitarle  por  la 
nueva  revista  y  pasar  a  expresarle  el  motivo  de 
tiues ira  carta. 

Nos  hemos  juntado  unos  usuarios  de  Com- 
modure*  aquí  en  Albacete,  pues  creemos  que 
se  lia  muy  positivo  el  crear  un  club  en  esta  ciu¬ 
dad,  que  serla  muy  beneficioso  para  todos,  y  es 
por  esto  que  les  pedimos  por  favor,  que  nos 
ayuden  en  \o  que  .se  refiere  a  información  sobre 
funcionamiento,  sonido  y  lenguaje  a  máquina. 

También  quisiéramos  que  publicaseis  algo 
sobre  nosotros,  informando  que  necesitamos 
socios  para  dar  vida  a  este  club  de  Albacete,  ya 
que  no  conocemos  a  la  mayoría  de  los  usuarios 
que  pueda  haber  aqui. 

También  nos  gustaría  algo  de  tnfoi  ¡nación  en 
cuanto  a  programas  de  música  para  d  C-64, 
CLUB  DE  COMMODORE  DE  ALBACETE 
Temando  Martínez  Guerrero 
La  Roda,  39-5*  i) 
ALBACETE 


Nosotros  s  fimos  la  revista,  mi  la  casa 
Commodore,  por  tanto  sólo  podemos  ayu¬ 
daros  con  la  publicación  de  todo  aquello  que 
los  distribuidores  de  Commodore  en  España 
nos  envíen.  Cualquier  información  que 
Microelectrónica  y  Control  o  cualquier  otra 
casa  nos  remita  la  publicaremos  para  que 
pueda  ayudaros,  asi  como  las  ñutas,  trucos, 
etcétera,  que  otros  lectores  nos  manden. 

Nosotros  no  podemos  enviaros  manuales 
ni  libros  sobre  las  rutinas  internas  de  los 
equipos  ya  que  no  disponemos  de  ellos  para 
venia  al  publico. 

Podéis  pedir  información  más  detallada 
sobre  equipos,  soft  y  publicaciones,  a  los 
distribuidores  de  Commodore  y  librerías 
especializadas  para  que  ellos  puedan  facili¬ 
taros  algo  más  o  deciros  dónde  podéis  con¬ 
seguirlo.  Podéis  comenzar  por  contactar  a 
los  de  Albacete  y  Vigo  y  a  los  que  aparecen 
en  la  revista. 

En  cuanto  a  la  ayuda  que  podemos  pres¬ 
taros  en  los  cursos  que  habéis  organizado, 
podéis  preguntarnos  todas  las  dudas  que 
puedan  surgir,  nosotros  trataremos  de  acla¬ 
rarlas  y  las  publicaremos  para  que  sirvan  de 
guia  a  los  demás  ciuhs  y  usuarios  indepen¬ 
dientes. 

Estamos  deseando  recibir  vuestras  cola¬ 
boraciones. 
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que  me  permita  d  usu  de  las  4  tedas  programa- 
bles*  y,  una  cómoda  programación  para  el  tra¬ 
zado  gráfico  de  I unciones  matemáticas.  Hasta 
ahora  Los  métodos  empleados  en  alia  resolu¬ 
ción  son  incómodos  y  largos,  les  quedaría  muy 
agradecido  si  pudiesen  ayudarme  a  encontrarlo, 

-I I. BER TO  V  A  LD EN EBR ( >  M ORA Ñ O 
CALLE  REAL.  X2-7Ü  B  -  TE  LEE  SO  86  37 
(EDIL  ICIO  CARCHA  GO  NOCA) 
CARTAGENA  (MURCIA) 

Próximamente  Commodore  pondrá  a  la 
venta  un  cartucho  del  estilo  dei  Super- 
expander  pem  para  el  (  -64,  Actualmente 
ya  tiene  disponible  en  disco  el  "TurMe  gra- 
pliics  ÍI  \el  "LOGO”  y  el  PILOT,  que  son 
tres  discos  que  permiten  trabajar  al  ordena¬ 
dor  en  lenguajes  es  pee  MI  cus  para  gráficos. 

En  este  mismo  rutinero  tienes  un  pro¬ 
grama  que  permite  asignarle  funciones  a  Las 
tedas  de  funciones. 

La  información  sobre  cartuchos  y  pro¬ 
gramas  disponibles  en  el  mercado  irá  apa¬ 
reciendo  poco  a  poco  en  la  revista  en  la 
sección  “Galena  del  Sol  l”. 


AMPLIACION  DE  RAM 

Aprovecho  para  felicitarles  por  3a  presen  lo¬ 
ción  y  contenido  de  su  nueva  revista.  Tengo  d 
siguiente  problema:  Fosco  un  V1C  20,  con  la 
máxima  ampliación  de  memoria,  Pero  al 
moverse  la  memoria  de  pantalla,  al  conectar  los 
cartuchos  de  &  y  16K  RAM,  queda  un  área  de 
unos  3K  que  se  desaprovecha  como  memoria 
accesible  en  Basic.  Les  agradecería  me  indica¬ 
ran,  si  es  posible,  mediante  alguna  instrucción 
rescatar  este  área  de  memoria,  que  me  sería 
muy  útil,  por  dedicar  mi  equipo  fu  n  da  menta  I- 
mente  a  cálculos  técnicos  de  ingeniería  civil  y 
edificación. 

Saludos  v  gracias  por  Lodo. 

LUIS  LOCERO AOIZ 
C V  ALEJANDRO  GONZALEZ,  5-1 ü  // 
MADRID-28 

Ln  el  numero  2  ya  contestamos  a  una 
pregunta  similar,  repetimos  para  los  que  no 
tengan  el  número  2. 

Cuando  se  conectan  Las  ampliaciones  de 
8  ó  16  KRAM  al  VIO 20,  si  tienes  conec¬ 
tado  el  .Super-Expander  no  sólo  no  tienes 
los  tres  KRAM  disponibles  en  BASIC;  sino 
que  te  quita  algunos  hvtes  de  La  memoria 
que  tendrías  si  lo  quitases. 

Estos  bytes  son  los  ocupados  por  Los 
"stríngs”  que  se  Le  asignan  a  las  teclas  de 
función,  y  los  quita  deJ  final  de  la  memoria. 

Los  3  KRAM  del  super-Expander  siguen 
estando  disponibles,  pero  no  los  puedes  usar 
para  programas  BASIC,  sólo  para  progra¬ 
mas  ríe  lenguaje  máquina.  No  se  de  ningún 
POKF,  misterioso  que  te  los  pueda  devolver. 
Si  a  i  guien  lo  sabe  que  nos  lo  envíe  y  lo 
publicaremos. 


PROBLEMAS 
CON  LA  CLAVE 

Muy  señores  míos:  En  el  número  1  de  su 
revista  listan  ustedes  el  programa  “Tiro  al 
blanco1"  y  aparecen  una  sene  de  letras  entre 
corchetes,  como  ÍCRSR  DN)  y  (3CRSR  DNS). 

F!  grupo  l:RSR  entiendo  perfectamente  su 
significado,  lo  que  les  agradecería  enorme¬ 
mente  es  la  explicación  de  los  grupos  (DNS)  y 
(DN), 
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Dándoles  las  gracias  por  adelantado  y  en 
espera  de  sus  gratas  noticias.  Se  despide  de 
ustedes. 

EDO.  JOSE  U.  BAYO  GARCIA 
ISIDORO  Dt  LA  CIERVA .  i 
TELEFONO  ( 968 j  2  i  45  40 
SUC  JERONIMO  DE  RODA.  I 
TELEFON  O  24  33  93 
MURCIA 

Fui  tratarse  del  primer  numero,  utiliza¬ 
mos  dos  e  la  ves  diferentes  para  los  listados, 
en  et  segundo  ya  lo  corregimos  adaptándo¬ 
nos  a  ki  clave  que  todos  conocíais  del  Club 
Com  modo  re.  El  significado  de  (CRSR  DN) 
es  cursor  ahajo  (cursor  DovvN),  y  el  de 
(3CRSR  DNS)  es  tres  veces  cursor  ahajo. 


MAL  POETA 

...Y  ALGO  “PIRAO” 

TAMBIEN 

Amigos  de  la  Commodore:  (que  bien  me  lia 
quedado  ¿eh!) 

Comenzaré  diciendo  que  soy  nuevo  en  éste 
club,  pues  no  hace  mucho  tiempo  que  adquirí 
mi  propio  VIC-20. 

Os  daré  algunas  de  mis  opiniones  sobre  este 
primer  número  de  b Com m odores  World”  (ya 
que  he  tenido  ¡a  “chorra”  de  suscribirme  en  el 
momento  justo,  para  recibir  este  número  I ): 

1. a  opinión:  creo  que  deberíais  tener  en 
cuenta  tos  que  se  incorporan  a  este  fascinante 
mundo  de  la  informática  (jolcl  yo  para  poeta) 
tos  cuales  están  algo  "verdes”  con  lo  referente 
al  sistema  (todo  hay  que  decirlo,  yo  soy  uno  de 
ellos),  por  Jo  que  os  agradecería  unas  explica¬ 
ciones  lo  más  claras  posibles  y  a  poder  ser 
ejemplos  de  lo  que  resulte  más  lioso, 

A  título  de  ejemplo,  os  diré  que  me  estuve 
rompiendo  la  cabeza  con  el  articuo  de  este  pri¬ 
mer  número  titulado  “Personalizar  tu  VIC  con 
gráficos  de  juegos”:  al  final  logré  descifrarlo  y 
lúe  gracias  al  ejemplo.  Pero  después  vinieron 
las  gráficas  de  alta  resolución  y  ahí  la  palmé, 
pues  no  tenia  ni  idea  de  las  iormulitas  que 
poníais. 

Con  lodo  este  rollo  os  quiero  pedir  un  ejem¬ 
plo  de  programa  que  utilice  las  gráficas  de  alta 
resolución  y  caracteres  multicolores. 

2.  opinión:  ¡procurad  cviLar  los  errores  de 
imprenta  o  del  propio  editor!  ya  que  la  “nueva 
merced”  no  estoy  muy  enterado  de  la  materia 
para  subsanar  los  errores  en  un  programa  que 
Lrabaje  con  POKF.s  algo  ra  til  los.  Si  no  conse¬ 
guís  este  objetivo  por  Jo  menos  crear  un  apar- 
Lado  de  erratas. 

Pregunta:  ¿Dónde  puedo  encontrar  informa¬ 
ción  de  memoria  de  lóK? 

Demanda:  ¿podéis  publicar  un  programa  en 
lenguaje  máquina  v  después  su  equivalencia  en 
BASIC? 

JAVIER  SÁENZ  PULIDO 
CJ  MÉJICO ,  30-4 0  B-4 


¡Vale!,  en  primer  Jugar  quiera  decirte  que 
procuraremos  poner  ejemplos  en  todo  lo  que 
podamos.  En  segundo  Lugar  desde  el  princi¬ 
pio  hemos  intentado  evitar  las  erraras,  per 
el  duende  de  imprenta  es  prácticamente 
imposible,  siempre  puede  colarse  un  gazapo 
en  cualquier  sitio,  pero  intentaremos  locali¬ 
zar  todos  ios  que  se  cuelen  y  ponerlos  en  el 
apartado  "meteduras  de  pata”  que  como 
puedes  ver  aparece  en  este  número  por  pri¬ 
mera  vez  (¡ojalá  pudiera  ser  La  última! ). 

Respecto  a  tu  pregunta  siento  decirte  que 
la  respuesta  es  no.  Pero  podrías  conectarlo 


si  le  hicieses  unos  corles  en  las  pistas  y  unos 
puentes  para  cambiar  la  dirección  en  que 
están  situados.  No  es  sencillo  si  no  tienes 
aigu  de  experiencia  con  el  soldador,  y  por 
supuesto  anularía  la  garantía.,. 

Sobre  los  programas  en  lenguaje  máquina 
y  basic  equivalentes,  Lo  intentaremos  pró¬ 
xima  mente...  pero  será  con  programas  sen 
cilios  para  ficilitar  la  comprensión  de 
ambos. 

Intentaremos  publicar  en  d  futuro  (¡no 
nos  pidas  fecha!)  algún  programa  que  uti¬ 
lice  gráficos  de  alta  resolución.  Mientras 
tanto,  lo  dejamos  aquí  como  un  desafío  a  los 
lectores  y  clubs,  A  ver  quien  nos  envía  el 
primero. 


Me  lia  gustado  la  página  42  "Mas  allá  del 
manual”,  que  supongo  seguirá,  pues  para  los 
que  comenzamos  todas  las  ayudas  son  pocas. 

Parece  que  falta  una  sección  con  bibliografía, 
para  saber  qué  libros  se  pueden  comprar  y  cuá¬ 
les  no  y  un  poco  de  su  contenido. 

Me  ha  sorprendido  la  contradicción  entre 
una  frase  del  MANUAL  DLL  USUARIO,  que 
viene  con  el  Commodore  64  y  que  dice:  “Com- 
modore  se  ha  volcado  para  que  sus  manuales 
sean  conocidos  por  su  facilidad  en  la  lectura, 
uso  y  comprensión.”,  y  los  errores  que  van  a¡)a- 
reciendo.  Por  ejemplo  en  la  página  44  al  expli¬ 
car  la  linca  7(1 .  Creo  que  la  Hecha  está  mal 
puesta.  F.n  la  página  61 ,  arriba  en  d  ejemplo  de 
POKLi  creo  que  falta  un  número,  F.n  la  página 
IGó  anuncia  una  bibliografía  con  más  de  20 
libros,  que  nunca  aparece.  (P  152  manual 
inglés  del  5  >  64.)  ' 

Todo  esto  puede  parecer  una  referencia  a 
cosas  pequeñas,  pero  qne  a  un  principiante 
pueden  desorientar.  Quizá  pueda  quedar 
suplido  con  la  revista. 

No  vendría  mal  en  la  revista  una  sección 
dedicada  a  un  glosario,  pues  constantemente  se 
leen  u  oyen  palabras,  que  no  se  conoce  su 
significado. 

L  n  cordial  saludo. 

/.  JAVIER  LOPEZ  IGLESIAS 
MARIANO  D.  BERREE  JA ,  17-3°  J 
LEON 


Gracias  por  envía rmos  Los  errores  que 
has  encontrado  en  eJ  manual.  Creo  que 
Microelectrónica  y  Con! rol  ha  preparado 
una  nueva  edición  corregida  del  manual, 
pero  al  publicar  los  errores  que  encontréis, 
ios  demás  usuarios  tendrán  más  liso  el 
camino  si  tienen  un  manual  antiguo. 

Desde  ahora  vamos  a  dedicar  uria 
pequeña  sección  a  los  errores  de  Jos  manua¬ 
les,  en  ella  ¡remos  publicando  lodos  Jos 
errores  que  encontremos  enlre  todos  (voso¬ 
tros  y  nosotros)... 

En  la  página  44  esta  mal  Ja  flecha,  debe 
indicar  a  la  Línea  30. 

En  Ja  página  61  debería  decir  POKE 
53281,7. 

L  a  bibliografía  a  la  que  hace  referencia 
en  la  página  106  imagino  que  no  parece  por 
ser  toda  en  inglés.  Tengo  el  manual  original 
>  en  éste  si  aparece.  En  español  sólo  tienes 
los  manuales  de  los  ordenadores  y  periféri¬ 
cos  y  las  guias  de  referencia  del  programa¬ 
dor  del  VIL -20  y  C-64,  así  como  los  cursi¬ 
llos  de  BASIC  de  Commodore, 

Además  vamos  a  publicar  reseñas  de 
todos  los  Libros  que  Las  editoriales  nos 
comuniquen  que  existen,  como  ejemplo  en 
este  mismo  nú  mer  u  aparecen  tres  de 
McGraw-Hill  España,  el  nueva  sección 
bibliográfica.  De  tomo  y  Lomo  (pág,  48). 


PR€GUNTON€S  & 


El  Glosaría  también  comienza  en  este 
número,  coma  ya  habrás  vista  y,  final¬ 
mente  ■ — Mas  Allá  del  Manual — ,  si  será 
una  sección  fija»  que  publicaremos  en  todos 
Jos  números. 


FOTOGRAFIA 

Me  gustaría  saber  cómo  se  podría  controlar 
una  ampliadora  lo  Logra  fi  ca  Util  izando  e  l‘ 1 C-64" 1 . 
Una  explicación  entre  el  interface  adecuado  y 
(su  conexión)  la  ampliadora  que  sea.  Si  es  que 
es  posible,  es  decir,  que  haya  algún  lector  o 
socio  que  pudiera  decírmelo. 

J.  M.  V. 


En  el  número  «na  de  Commodore  World 
apareció  un  artículo  sobre  cómo  utilizar  el 
¡ior1  de  usuario  del  VIC-20,  EJ  parí  de  tu 
C-64  es  prácticamente  igual,  pero  varían 
las  direcciones  y  algunas  peculiaridades  del 
circuito  integrado  utilizado  (CIA).  Si  desea 
i  ti  lurinación  detallada  puedes  encontrarla 
en  la  página  293  de  la  guia  de  referencia  del 
programador*  Si  podemos  en  d  futuro  dedi¬ 
caremos  un  articula  a  este  port,  pera  ahora 
mismo  no  pueda  prometerte  nada. 

En  el  mercado  nacional  tienes  un  acceso¬ 
rio  que  le  permitiría  utilizarlo  para  contro¬ 
lar  la  ampliadora,  se  trata  del  “controlador 
C'-S”  de  Elektrocumputer, 

/,  M.  V. 
(INICIALES  SOLO 
POR  DESEO  PROPIO) 


MEA  CULPA...  MEA  CULPA 

He  mandado  un  programa,  el  cual  ha  sido 
publicado  en  su  revista.  Yo  no  la  he  recibido 
aún,  pero  me  he  enterado  por  un  amigo  que  la 
recibe.  En  ella,  está  el  programa*  y  una  breve 
nota  que  dice  “mándanos  lu  dirección'  .  Creo 
que  ya  Ja  tienen,  soy  uno  de  los  muchos  que 
están  suscritos  a  su  revista,  pero  de  Lodos 
modos,  se  \ a  pongo; 

LUIS  CAR  SALLO  TARO  AL)  A 
C/  CARDENA!  Q UFA' EDO.  35 -5" 
ORFNSI 


El  programa  es  Caroteno  publicado  en  el 
número  1  de  Commodore  World, 

Lamentamos  que  hayas  recibido  el 
número  ltan  tarde,  Al  pasarnos  Microelec¬ 
trónica  y  Control  su  fichero  de  suscriptor 
de  Club  Commodore  hubo  un  problema  de 
el  i  que  taje  que  afectó  a  unas  veinte  suscrip¬ 
to  res,  entre  ellos  tú.  Como  habrás  visio.  ya 
está  subsanada. 


¡PRESUME 
CON  TU  AMIGO! 

Hola  queridos  amigos  (la  editorial). 

Antes  que  nada  y  por  encima  de  todo,  quiero 
felicitaros  por  vuestra  revista,  de  la  cual  soy 
suscripto!*,  y  que  la  encuentro  muy  interesante  y 
de  gran  interés  (pero  los  2  primeros  mi  meros 
me  han  llegado  con  un  poco  de  retraso).  Espero 
que  los  siguientes  números  sean  dd  mismo 
estilo. 

Después  de  felicitaros  proseguiré  con  la  carta 
y  ii  q  ue  q  u  i  e  ro  h  a  ce  ros  algunas  p  reg  untas  y 
proposiciones. 

a)  Al  recibir  el  primer  número,  correspon¬ 
diente  al  mes  de  febrero,  había  en  el  sobre  una 
etiqueta  con  mi  nombre  y  con  el  número  de 
socio  (9. 655),  Y  quisiera  saber  si  este  número 


— Commodore  World,  dígame. 

—¡¡Se  me  ha  perdido  el  boletín  de 
suscripción!! 

—No  se  preocupe,  por  teléfono  tam¬ 
bién  puede  suscribirse  llamando  al 
número  (91)  259  54  78. 


sirve  para  algo,  o  simplemente  es  para  saber  la 
cantidad  de  socios  que  tenéis. 

b)  ¿No  podríais  publicar  algún  programa 
escrito  ya  en  lenguaje  máquina?  L.o  digo  para 
no  gastar  memoria  con  el  intérprete  BASIC,  y 
porque  creo  que  puede  ser  una  experiencia  bas¬ 
tante  interesante  para  los  VlC-64-adÍcLos, 

e)  Ahora,  y  por  último,  me  gustaría  hacer 
una  proposición  que  viene  debida  por  lo 
siguiente:  F,1  otro  día  expliqué  a  un  amigo  mío 
que  la  revista  a  la  que  yo  estaba  suscrito  tenía 
más  de  3.500  socios.  Pero  él  no  se  ío  creyó,  y  y  ti 
le  dije  que  se  lo  demostrada  como  fuera, 

Pues  ahí  va  mi  proposición. 

Rogaría  a  lodos  los  que  leyeran  esta  carta 
que  me  enviaran  una  breve  contestación  en  la 
cual  pusiera  el  nü  de  socio  y  desde  cuándo  lo  es. 

Así  pues,  confiando  en  vuestras  carias  y  en 
vuestro  espíritu  de  buenos  socios,  me  despido. 

Muchísimas  gracias  y  animaos  a  escribir. 

Í\D.:  Pasado  un  mes  de  Ja  publicación  de  mí 
carta»  escribiré  una  carta  a  la  editorial  para 
decirles  los  resultados. 

XAVIER  QUERA L  CARRILLO 
CY  CORCEGA ,  ó  ÍJ-.V1  i 
R  \R(  El  O  XA-:* 


Si  y  no.  Ni  laníos  coma  9,655  ni  tan 
pocos  como  3.500. 

El  número  9.655  no  sabemos  tle  qué 
puede  ser*  pero  sospechamos  que...  ¡era  el 
número  de  reembolsó! 

En  este  momento  acabamos  de  dar  el  alia 
al  número  4.146  y  tu  número  en  particular* 
Xavier*  es  el  1 .011  — claro  que  los  números 
sirven—  el  5*ÚUQ  visitará  EE.UU.  y  el  afor¬ 
tunado  que  le  taque  entre  los  demás,  Ingla¬ 
terra  y  Jas  correspondientes  instalaciones 
Commodore, 

De  tudas  formas  nos  has  dado  una  idea. 
A  partir  del  próximo  número  pondremos  en 
las  etiquetas  d  numero  de  socio  (para  éste 
ya  están  hechas)  para  que  lados  puedan 
conocer  el  suyo. 

l.n  este  número  comenzamos  un  curso  de 
lenguaje  máquina,  los  programas  comenza¬ 
rán  en  uri  ful  uro. 
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MARKETCLUB 


Servicio  gratuito  para  nuestros  lectores  particulares.  Empresas  300  pías.,  por  línea. 


MERCADILLO 


(Re/.  M-I) 

•  CBM  4$  32.  Intercambio  programas, 
.losé  Maree  M estrés.  Calle  Sevilla,  5.  Tel. 
(93)  803  77  51 ,  de  8  o  3,  VI  LA  MOV  A  DEL 
CAM  (Barcelona}. 

(Re/  M-2) 

•  ACCESORIOS  VIC-20:  Ampliación  de 
memoria  16K  más  varios  programas, 

1 3.000  Módulo  de  expansión  para  ó  cartu¬ 
chos,  10  000,  Cartucho  lenguaje  FORTH 
v  manual,  7.000.  Las  tres  cosas  sólo  por 
25.000.  Jaime.  Tel.;  245  46  56.  BARCE¬ 
LONA. 

(Ref  M-3) 

•  Desearía  vender  por  40.000  ptas.:  VI C- 
20 ,  con  cartucho  Super  Expanden  las  dos 
panes  del  Curso,  el  ‘ ’ioy-stick"  y  un  juego 
1  nde.scomp,  todo  comprado  en  diciembre 
del  82.  Fernando  Martínez,  calle  La  Roda, 
39,  5°  D(  Tel.  23  41  82.  ALBACETE, 

(Re/  M’4) 

•  Tengo  un  PET  2001/8K  y  desearla  te¬ 
ner  el  cassette  ‘Monitor  para  lenguaje 
Máquina".  También  desearía  contactar 
con  usuarios  o  clubs  de  PEE  si  los  hay. 
.losé  Manuel  Cámara  Mas,  calle  Castor, 
32,  bloque  II.  3-,  puerta  I.  ALICANTE. 

(Ref.  M-5) 

•  Se  busca  MODEM  para  Comm odore  64. 
Precio  a  convenir.  José  M,"  Maci  Horno 
de  Ladilla,  4,  Moniblanc  lARRACONA, 
86  í)0  63.  Moras  de  comida. 

(Re/  M-6) 

•  Vendo  VíC-20  (Comprado  en  noviem¬ 
bre  1983).  2  cursos  de  baste,  libros,  pro¬ 
gramas,  4  cartuchos,  juegos  en  cassette, 
cassette,  joysiicks.  Equipo  ideal  para  ini¬ 
ciarse  en  informática.  Todo  por  59.000 
(Valor  real  90.000).  Llamar  de  9  a  II  h, 
noche.  Joan  Sanz.  Tel.  321  80  64.  Trave¬ 
sera  de  las  Corts,  295.  BARCELONA,  29, 

(Ref.  M-7) 

•  Compraría  Cassette  y  aplicación  de 
memoria  8K  para  VLC-20.  Precio  a  con¬ 
venir.  Manuel  Aranda  (435  49  00)  Ofi¬ 
cina;  91  (617  97  31)  casa. 


( Ref.  Xf-H) 

*  Me  urge  la  Unidad  de  Disco  pero  de  2.J 
mano  y  daría  hasta  40.000  ptas.  El 
módulo  “1020"  lo  tengo  averiado,  tam¬ 
bién  lo  compraría  por  10.000  pesetas. 

José  L.  Castejón  Roca  -  l  as  Paredes  -  LA 
UNION.  Murcia. 

(Ref.  M-9) 

*  Desearía  comprar  o  intercambiar  pro¬ 
gramas  de  juegos  o  con  diversas  utilidades 
para  el  VIC-20  no  ampliado  (cinta). 
Carlos  Plaza  Hernández.  Calle  Mestre 
Nicolau.  37-41.  Enllo.  3.J.  Teléfono:  (93) 
380  13  17.  BAO  ALONA  (Barcelona).  Pre¬ 
ferible  llamar  de  13  a  16  ó  de  22  a  23. 

(Ref  M-Í0) 

*  Ruego  toda  información  sobre  progra¬ 
mas  y  aplicaciones  de  3032  así  como 
monitor  para  lenguaje  máquina  con  1  itera- 
tura  en  francés  o  español.  Arte  mió  Gon¬ 
zález  Pérez,  Calle  Femando  Arocena 
Quintero,  1,  Barrio  de  Buenos  Aires 
SANTA  CRUZ  DE  TENERIFE.  Teléfono: 
(922)  22  42  44. 


(Ref  M-  II) 

•  Vendo  microordenador  VIC-20  sin  cas¬ 
sette,  por  34.000  ptas.  y  regalo  más  de  70 
programas  de  todo  tipo,  entre  ellos,  con¬ 
trol  stock,  ajedrez  (2),  cuentas  comercia¬ 
les,  archivo  QSL  con  presentación  en  pan¬ 
talla  de  la  misma  y  posibilidad  de 
imprimirla,  juegos,  etc.  etc..  íntcrface 
CW-RTTY  au Reconstruido,  funciona  a  la 
perfección  y  vale  para  cualquier  ordena¬ 
dor,  se  incluyen  programas  de  CW  y 
RTTY  por  10.000  ptas.  Manuel  González 
Lomhardía  FA I  CMC.  C/G abriel  v  Galán. 
4-2- A.  PEÑARANDA  DE  BAR C AMONTE 
(Salamanca), 

(Ref  M-12) 

•  Intercambio  programas  de  todo  tipo 
para  el  VIC-20.  Regalo  programas  a  todo 
aquel  que  pida  mí  lista.  También  vendí) 
ampliación  de  memoria  IÓK  por  sólo 
12.000  pesetas.  Dirigirse  a:  Tomás  Tori- 
bio.  Jcrusalcn,  5.  ZARAGOZA-9.  Telé¬ 
fono:  (976)  35  69  94. 

(Ref  M-13) 

Si  os  sobra  una  impresora  para  el  VIC-20 
y  no  sabéis  a  quién  regalársela  yo  estaría 


muy  complacido  de  recibirla,  .Jorge 
Rodríguez  Añeyro.  Polígono  San  Pablo, 
Barrio  C.  J  orre  2°  4C.  SEVILLA-?. 


(Ref  M- !  4) 

•  Desearía  comprar  cartucho  Super  Expan- 
der  para  Vic-20,  Precio  a  convenir.  Lla¬ 
mar  de  2  a  2.30  ó  de  7  a  1  L  Tel.  (954)  61 
41  24.  Calle:  Gustavo  Gallardo  7-4^'  D. 
SEVILLA-13,  Cuanto  antes  llamen  mejor. 


CLUBS 


(Ref  C-I) 

•  Club  de  amigos  del  VIC-20  y  Commo- 
dore-64.  Ramón  P.  Serna  Soler.  Foto 
Estudio  2.  Plaza  de  Sombrereros,  2. 

PALMA  DE  MALLORCA.  Tel.:  2131  62. 


(Ref  C-2). 

•  Desea  información  sobre  clubs  en  exis¬ 
tencia  y  gente  que  quiera  formar  uno, 
Agustín  Que  ve  do  Ve  la  seo.  Oña.  55-4L'B. 
MADRID -3 4,  Tel.:  202  94  28. 

(Ref  C-J). 

•  Desea  información  sobre  clubs  en  exis¬ 
tencia  y  gente  que  quiera  formar  uno, 
Pablo  Nistal  Alonso.  Empecinado,  46 
6-B,  MOSTO  LES.  Tel,:  645  21  70. 


(Ref  C-4f 

•  Club  de  programación  Alaiz,  en  Pam¬ 
plona.  Está  dirigido  a  estudiantes  de 
B.U.P.  y  C.O.U.  de  esta  ciudad,  y  el  fin 
que  tiene  es  la  introducción  en  el  mundo 
de  la  informática  y  programación  BASIC, 
No  tiene,  por  lo  demás,  ningún  fin  lucra¬ 
tivo.  El  club  propiamente  posee  equipos 
COMMODORE  64,  VIC-20  y  diversos 
periféricos  (impresora,  unidad  de  disco  y 
cassette).  CLUB  ALAIZ.  Pza.  Monasterio 
Santa  Gemma.  s/n.  Telsu  254480-257704. 
PAMPLONA. 

(Ref  C-JJ. 

•  Club  de  Comm  odore  de  Albacete. 
Fernando  Martínez  Guerrero.  La  Roda, 
39  5-  D,  ALBACETE. 
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(Ref  C-6). 

•  Círculo  Durensan  Vigues,  VIGO.  Vene¬ 
zuela.  48.  En  trochan.  TeL:  (986)  410683- 
422? [9, 


(Ref  C-7). 

•  Un  grupo  de  usuarios  de  la  Comunidad 
Autónoma  de  Murcia  intenta  crear  un 
Club  de  Usuarios  de  VIC-20  y  C-64  en 
esta  región,  sin  fines  lucrativos.  Interesa¬ 
dos  llamar  a  los  teléfonos  (968)  80  23  64 
(Mañanas,  preguntar  por  Paco);  (968) 
26  72  62  (Tardes,  preguntar  por  F c mando). 
Francisco  SáczSoto,  C /  Viruen  del  Rosa¬ 
rio.  28  ALCANTARILLA.  MURCIA. 


SERVICIOS 


(Ref  S-Í) 

•  En  Barcelona,  clases  de  informática. 
PLAZAS  LIMITADAS.  Lenguaje  BASIC. 
Prácticas  con  microordenador  VIC-20. 
Prof.  E.  Martínez  de  Carvajal.  Informa¬ 
ción;  TeL  (93)  34?  10  00.  Señorita  María 
José  (mañanas)  ó  (93)  345  87  75, 

Sr.  Martínez  (fuera  de  horas  de  oficina). 


(Ref  $-2) 

•  Programación  de  ordenadores  persona¬ 
les;  organización  explotación  de  ficheros; 
programas  ordenadores  auxiliares,  para 
cuestiones  empresariales,  profesionales, 
administrativas,  científicas.  Mora  Mas. 
Carlos  III,  41.  Td.:  339  98  29  BARCELO- 
NA-28, 

(Ref  S-3). 

•  Tengo  programa  para  confección  de 
documentos,  cartas,  textos,  etc.  Permite 
escribir  líneas  reales  de  impresora  visuali¬ 
zando  por  pantalla  y  avisando  al  final  de 
cada  línea  por  timbre,  Visuallzación  del 
texto  entero;  modificaciones  de  línea; 
insertar  líneas;  grabación  disco  o  cassette; 
lectura  de  datos  de  disco  o  cassette;  con¬ 
trol  por  pantalla  del  texto  a  rectificar: 
acepta;  espacios,  etc,;  imprime  normal  y 
doble  ancho;  pregunta  número  de  copias; 
salto  automático  de  página  en  impresora; 
margen  izquierdo  en  la  página.  Amadeo 
Bargay.  Pza  Hospital  ?-?-F  Tel.:  874  41  93. 
MANRÉSA  (Barcelona). 

(Ref  S-4) 

•  PROG R  A M  A  DORES  COM  MODOR  E 
64,  excelente  oportunidad  para  personas 
que  dispongan  de  programas  de  gestión  y 
utilidades  y  deseen  comercia  fizarlos  en 
condiciones  verdaderamente  ventajosas 
(sólo  programas  de  alta  calidad).  También 


programadores  des  puestos  a  realizar  pro¬ 
gramas  a  medida.  Deberán  escribir  al 
apartado  de  correos  24143  de  Barcelona. 


BOLSA  DE 
TRABAJO 


OFERTAS 

«  TI  CNICO  COMr.RCT Al ..  experiencia 
venta  Microordenadores  y/o  material 
Auxiliar,  Tel.  (93)  207  39  12.  Limes  12.  C. 
Mercantil 

•  BECARIO  con  posibilidad  de  entrar 
en  plantilla  oficina  MADRID.  Requisitos: 
Licenciado  o  último  curso;  Ingles  hablado 
y  escrito;  Interes  ad  o  en  so  f t  wa  re .  M  a  n  d a  r 
'"curriculum  víate”;  API  *PLUS  Service, 
Rosario  Pino,  6.  Madrid-20. 

•  Para  la  venta  de  material  de  uso  infor¬ 
mático  se  necesitan  VENDEDORES,  Se 
requiere;  Coche  propio;  exento  servicio 
militar;  edad  inferior  a  27  años:  formación 
grado  medio.  Incorporación  inmediata. 
Interesados  llamar  al  teléfono  457  49  23, 
Ref  SM- 28/33 1  10  L 


Para  todos  los  usuarios  de  la  informática  personal 


(Tpr?  |®í(ipk.  las  BíiLarins  dt  la  LnIsrjrijJjca  ptríínjl 


TODO 

SOBRE  APPLE  EN 
ESPAÑA 

. ígaíS?  — 


Ejemplar  atrasado 
250  pesetas 


-  EL  COLEGIO 
Y  LA  INFORMATICA 


Cnmmodore  World  vhrii  i *1X4/53 


Las 

Aventuras 


/> 


te*** 


v\^k.Hh 


/M¿£  /V<PA/SPEf 

£A¿ SE  #£  COJO. 

■JO  SE  (2  O  A/O  PpEOES 
TEA/E  P  S/EMPPE  SoEJO. 


¿/  Au¿>  apncae^. - < 


(°JZ#AÁQ¿/fAjp 

/7^  <7P*r 

')> 


íhémi 


LO  PEAL  MEaPE  ESTOPE  A/PO  SER/A  JPOE  2. 

ALGU/Epj  a/os  COJTArA  PASO  A  PASO  7oooSj 
¿OS  DECRETOS  Pe  A/JES'rpO  _ ¿ 

- CoaJmooope  jr  ¿2si 

*>,-( W/f..H(yyA  ^  -  -  ,.y\W I 


J*1  ' 

*A 


/  ¡HOLA  MUÚHAaHOS ! 
/A/O  OS  ASl/STcts  !  PÍE 
\UAmo  R/QF3  .. 


cíU 


VOSOTROS  M£  HA8E/5 
L/AmAAO..  j*_A.  ^ 


54/Commodore  World  Ahrii  [484 


/  NO  Te  CONOCELOS ¡  jíL'i  o 
..Y  A/AD/E  7t  «4  LLAMADO  }(0c 


■¡ESCUCHAME  AlÉAf7AmM7m...  Y 
JíX  £7.  7)(JEAj£>£  £4F5  O'PAES  . 
/  ESToX  A&U/  PAPA  L¿pvAPoS 
A  CO  AJO  CE  A.  EL  Mi/POO  MAG/CO 
DEL  COMMODOPE  i  ¡D 


CAMA 

t  Mi/y  pe  ¿suena 

|Yv'~t  x  puedo 
f*v  Y  aíjmjTjp 
Y  s  M  /W¿»/£ 

V)i  ®  7  *4S„ 


)  /"■■■  ^  ^>¿>  «ESO  S 
7  pop&ve  yosoTpos 
LO  HA  B/A/5  PE  SEA  DO 

Hace  ua/os  \  ^ 

SE  GOA/DOS  J 


VUPP//J //  ES  e/EP7o  ES  L/M 
0*  DUEAJDE  DE  PP/AfEPA-A  / 


BlEH J  LA  UAJ/Cfi  EOPM4  DE  ¿QUE  ME  cpEj'S 
ES  LLEVA PoS  AL  Mu/VDO  J)EL  COMMOhOPE 

-Q  rv  .  0  ^-Vi  fc*  <*  Y 


/  l/AMOS  SO 
6ALUNÁ 
MUEVE  TELE EL  / 


3  V-r7  4/(7000 
Y  SOGOPAOOO  " 
Desames  lU_jr' 


i» 


Z ¿Ndtí A  NTE  /  soy 

VEM&D  J>£  4¿8/ ,  J>€  M#y 

lejos  ...  c como  Esrd/sr* 


®\{C\jyv 


Gfi  ÉA¿QJtt 


EnTqWGSS  &1¿E 

8JSCAMOS  JA/  W£V<? 

',  NOMBRE..! 


/HO'MM  j  -  £3  c/EfíJo  \ 

A<3ts/  DemTPO  m  os  , 
MIE  vVESTAO  «£ 
¡>£L  MUA/fiO  EXJcR/OP 


1  y  HA  81AMO 
>DE  (LOSAS 
flL£6fiES,  .... 
cfYosoneos  <lomo 

-1  OS  LÍ  HMP/S  ? 


O/  (  MAS  VALE  (QUE  A/uMOM  OS 
tM0ONTfi£/S  CON  EL  O  CoN 
'  SUS  SFPv/UoMES  P—'y-'L 


MAMOA  7SS  MOM8PES  PMMA  /VOSOTROS 
y  PAA/JCiPA  EA)  EL  COf/ CURSO 
'- •  ■•  puedes  ga/vam  ew  sueqo 

":  \  PAMA  7¡j  COFfM  O  D  OHE  / 


ESQj?/8/¿>M05  A  :  *—  ( 

PEUMO  MOOuPuEá  ,  4-  -  SPS  )  C 
"?  MADP/E  -  jé 

S0H7EX  MEMOS  EEüeE 
LAS  OPATAS  pEC/SLEHS 
X  y  SU ESOS  PAPA  VUES7Á0 
J  “U  CoMMOAOEE  y— 


UPA/VTASTÍeo!  HAGAMOS  ¿ 
¡  '■y  O  Ai  QOMdl/M  SO  Ea/TPE 
¡  \jME5~WOS  LEE  JOPES 


J  ES¿rp/3/l> 

y  ,wy 

MP/MMEajTe 


’  PgÓÁiHO  WHt  80 


56/ Comino  dure  World  Abril  il)K4 


El  Manejo  de  Ficheros 

Solucionando  problemas 
con  la  Base  de  Datos  “Deluxe” 


Necesitabas  un  programa 
de  base  de  datos  barato 
para  el  VTC-20  o  el  C-64? 
Este  no  te  va  a  costar  un 
duro.  Simplemente  teclea  el 
listado  para  almacenar,  y 
clasificar  tus  datos  con  faci¬ 
lidad. 


VLC-2Q  con  3K  o  más. 

C-64  con  unidad 
de  discos  I54U  ó  1541 
ó  Contra  odore  Datasse&c 


El  tL Fichero  E>duxc”  es  un  manejador 
de  ficheros  para  el  C-64  o  el  VIC-2Í)  con 
una  ampliación  de  memoria  de  3K  o  más. 
El  programa  está  diseñado  para  uso  con  la 
unidad  de  discos  simple  1540  ó  1541  o  el 
Datasselte  de  Com inodoro*  Funcionará 
con  cualquiera  de  las  impresoras  del  VlC. 

El  formato  del  fichero  es  un  grupo  de 
páginas  con  diez  entradas  por  páginas.  En 
la  versión  para  el  VI 020,  la  línea  2  com¬ 
prueba  la  cantidad  de  memoria  disponible 
para  el  almacenamiento  de  dalos  seleccio¬ 
nando  el  número  ideal  de  páginas.  Esto 
significa  que  si  se  cambia  el  tamaño  del 
programa,  esto  será  tenido  en  cuerda,  v  se 
modificará  el  número  de  páginas. 

En  la  versión  para  el  C-64,  siempre  se 
proporcionan  100  páginas,  con  diez 
entradas  por  página.  En  la  linea  30,  N  se 
fija  en  1000,  es  decir,  el  número  de  entradas 
que  el  fichero  puede  contener.  St  quieres 
más  o  menos  páginas,  lo  único  que  hay 
que  hacer  es  cambiar  este  número. 

Cuando  se  ejecuta  el  programa,  lo  pri¬ 
mero  que  solicita  es  el  nombre  del  fichero. 
Si  se  pulsa  la  tecla  “‘Rettirn”  sin  haber 
proporcionado  un  nombre,  el  nombre  del 
fichero  se  l  ijará  en  "Sin  Nombre".  A  con¬ 
tinuación,  el  programa  se  iniciaBza. 

Un  momento  más  larde,  una  lisia  de 
comandos  de  una  letra  aparecerán  en  pan¬ 
talla.  Eos  comandos  son  ¡os  si  guien  les: 
Página,  Intercalar,  Entrar,  Catalogar, 
Ctasillcar,  Borrar,  New,  l.oad  (Cargar), 
Save  (Salvar),  Salida  a  Impresora  y 
Ayuda*  Si  alguna  vez  se  Le  olvida  lo  que 
significan,  pulsa  la  tecla  ?  (  Ayuda)  para 
que  saiga  una  lisia  de  las  definiciones* 


Utilizando  los  Comandos 

Para  llamar  una  página,  se  pulsa  la  P  y 
el  número  de  página  deseada.  (Un  cursor 
intermitente  le  indicará  al  usuario  que 
pulse  la  teda  "Return"  después  de  teclear 
una  información  solicitada).  Cuando  la 
página  aparece,  se  verán  diez  números  de 
entrada  seguidos  por  un  guión.  Para  reali¬ 


zar  una  entrada,  se  pulsa  la  tecla  E  y  se 
teclea  uno  de  los  números  para  indicar 
dónde  tiene  que  colocarse  la  entrada,  l  a 
entrada  no  puede  contener  comas,  dos 
puntos,  ni  punto  y  coma.  Después  de 
haberse  pulsado  la  teda  "Return",  la 
entrada  aparecerá  en  la  página* 

Si  se  desea  que  la  entrada  aparezca  en  el 
catálogo,  tiene  que  ser  invertida  (las  letras 
dentro  de  una  barra  de  color).  Para  hacer 
esto,  el  primer  carácter  de  la  entrada  tiene 
que  ser  una  flecha  a  la  izquierda*  Esta  es  la 
teda  que  se  encuentra  en  la  parte  superior 
izquierda  del  teclado. 

Normalmente,  yo  invierto  los  títulos  de 
las  listas.  Por  ejemplo,  se  podría  clasificar 
uña  lista  de  libros  según  los  nombres  de 
los  autores.  Para  hacer  esto,  se  invierte  el 
nombre  de  cada  autor,  entrando  el  título 
del  libro  detrás  del  nombre.  (El  título  del 
libro  no  se  invierte).  Ahora,  cuando  el 
catálogo  es  llamado,  se  presentará  el 
nombre  dd  autor  junto  con  el  número  de 
página  donde  aparece. 

Para  insertar  algo  entre  dos  entradas 
existentes,  se  pulsa  l  y  se  teclea  el  número 
de  línea  donde  se  va  a  colocar  ia  inserción. 
Para  borrar  una  entrada,  se  pulsa  la  tecla 
Q  y  se  teclea  el  número  de  entrada.  Para 
cancelar  un  comando  como  Borrar,  se 
teclea  la  letra  de  otro  comando  en  vez  dd 
número  de  entrada. 

Si  el  usuario  quiere  repasar  las  páginas 
rápidamente,  se  pulsa  la  barra  de  espa¬ 
ciado  en  vez  de  la  letra  de  un  comando. 
Para  llamar  el  catálogo,  se  pulsa  la  C. 
Debido  al  espacio  limitado  en  la  pantalla, 
sólo  diez  líneas  con  sus  respectivos  núme¬ 
ros  de  página  pueden  ser  representadas  a 
la  vez.  Para  que  aparezcan  las  diez  líneas 
siguientes,  se  pulsa  la  teda  “‘Espacio". 

Para  salvar  o  cargar  un  fichero,  se  pul¬ 
san  ¡as  ledas  S  o  L  respectivamente.  El 
ordenador  le  solicitara  al  usuario  que  con¬ 
firme  lo  pedido.  Esto  asegura  que  no  se 
cargue  un  fichero  antes  de  terminar  con  el 
que  está  en  el  ordenador,  A  continuación, 
se  le  solicitará  al  usuario  que  indique  si 
está  usando  una  cima  o  una  unidad  de 
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discos.  Se  pulsa  la  D  para  disco  y  la  C 
para  cinta.  Si  se  pulsa  la  D,  el  ordenador 
preguntará  si  el  usuario  desea  un  listado 
de  los  ficheros  de  datos  salvados  en  disco. 
Cuando  se  vuelve  a  salvar  un  fichero  en 
disco,  el  fichero  anterior  será  sustituido 


por  el  nuevo.  De  esta  forma,  no  hace  falla 
recordar  cuál  es  la  versión  más  reciente  de 
un  fichero. 

Para  clasificar,  se  pulsa  la  tecla  A.  Sólo 
se  puede  clasificar  lo  que  se  incluya  dentro 
de  una  lista  Si  las  listas  son  los  nombres 


de  autores,  los  libros  pueden  ser  clasi¬ 
ficados  según  cada  autor  individual,  pero 
los  nombres  mismos  de  los  autores  no 
pueden  clasificarse.  Después  de  pulsar  3a 
A,  el  ordenador  solicitará  el  número  de  la 
primera  entrada  para  clasificarse. 


►  1 

BASE  DE  DATOS  VlC-20 

34  PRINT" [RVSON]? [RVSOFF] [SPC] DEFINI 

C I ONES"  PRINT " [ CRSRD ] [ RVSON ]H [RVSOFF ] 

[SPC3L ISTAR! SPC 3HCSPC] IMPRESORA [CRSRU] 

1  T $= " S INC SPC ] HOMBRE"  :  PRINT"  [CLP  JHÜI't 

11  GQSUB26  IFR-0THEN31 

35  G0T09 

BREC SPC 3 BE [SPC] ARCHIVO"  IHPUTTÍ : TÍ=L 

36  PR I  NT  “ [ CLR ] [ BLK ] Sfi  VE [ SPC 1 R [ SPC 1 C I 

EFT$<Tf , 14 > 

NTRCSPCJOCSPCiniSCCi"  '  00SUE66  IFflíO" 

2  N=  I  NT f  FRE  ■:  0  )  /20 )  F'=  1  X=  C  p+ 1  >  / 1 0  n  j 

S"THEN4 

MS* ( N ) ■ P0KE36879 •  13?  ' R$=" I SPC ] L I NEfi# 

37  PRINT ri  C  RVSON  ]  H  í  RVSOFF  ]  I  SCO  [  SPC  JO  C  SPC  J 

"  G0SUB81 

C RVSÜN3CÍ RVSOFF  J  1  NT R"> "  G0SUB63 : IFftf= 

3  FS=¡CHRía5i  üí -CHRÍ < 8 )  UUTüy 

"C"THEN4 

4  N>0 

38  IFñíOMD"THEN4 

5  0=O  PRINT" C CLR J  [WHT J  [RVSON  JCFiTRLOG 

33  OPENISjSj  15/  "U'I“"  GLOSEIS  0PEN2,0 

n  :  [ SPC ] " ; Tí  PRINT " PAG  I HR " 

■  2,"m  "  +  TÍ +  "  I SPC ]  C SH I FTX  J  -  S¿  W "  7=2: 

6  FORJ=KTON  I FRSC  <  Sí ( J ) 1  =  1 8THENPR I NT 

GOT089 

"  [ CRSRL ] "  I NT ■;  J/10+ 1  > ; Sí  ( J :>  ■  Q=Q+ 1  -1FQ 

40  ÜPEN 1,1-1. TI  PR I NT# 1 *  Tí  J=l  G0T08 

>Í0THEN8 

8 

7  NEXTJ 

41  PR  1  NT "  [CLR  J  t  RVSON  ]  LORD  [  SPC  ]  HE  [ SPC  1 

8  GQSUB26  IFñ=0THEN8 

C I NTR [SPC ] 0 [ SPC ] B I SCO  "  G0SUB66  IFñíK 

9  OHRGOT04,  12..  19, 22, 29, ■  36,  4  1  •  67, 47 . 5 

y 11 S  "THÉN4 

2,81 

42  PR 3 NT " [RVSON J DI RVSÜF F ] I SCO í SPC ] 0 C SPC ] 

10  IFJ<N+1THENK=J  GÜT05 

[ RVSON JCCRVSOFFJI NTR?"  GÜSUB63 ; 1FH*= 

íl  GÜT04 

"C"THEN4fc 

12  PRINT" [2CRSRB3 PAGINA#"  :  INPUTRÍ  P= 

43  IFAíO"D"THEH4 

VALC  Aí  >  :  GÜ3UB27  :  IFHO0THEN3 

44  GÜSUB37 : PR J  HT " [ CRSRD J  NOMBRE [ SPC J  B 

13  IFP<10RP>KTHENPRIHT" [3CRSRU] "  GOT 

012 

EfSPC JRRCHIVO?"  I NPUTHÍ  IFNf =" "THEN4 

14  PRINT" [ RVSON JCCLR] PAG Tí  FOR 

45  0PEN15.8,  15-  "UI-11  GLOSEIS  ÜPEN2  ■  8 

I  =0TOS ■  L* i P- 1  >  #  1 0+ 1  FR I NT " C CRSRL 3T; 

,2,  "O  "+H$+" [SPC 3 [SHIFTX] , S, R"  J=2  G 

SÍ(L)  NEXT 

u  T  033 

15  G0SUB26 : IFR=0THEN15 

4(5  0PEN1 ,  1-0:  J=1  :  GOT  OS  S 

18  IFR012THEH9  . 

4  7  PR I  NT "  [  2CRSPB  J  00 1  TRRCSPl  J  L  H 1.  SPO  J L 

17  P^P+l : IFP>XTHENP=1 

I NEh " Pí  INPUTRÍ  J  =  VRL  C Ffí  )  G0SÜB27  IF 

18  GOT  014 

ROOTHEN8 

19  fií=“-r : PRINT " C2CRSRD JENTRflR " Rí : I 

48  l  F  J  •  1 0 Ci F'  J > NT H E N P P I N  í  1  C  2CRSPU 1 "  CO  I 

NPUTAÍ- J=VAL<AÍ)  :  GÜSUB27 :  IFROGTHEN9 

047 

43  FOR l =7TÜN ™ 1  1FSÍ1  l  1  - " [ SH I FT  +  1 " RMD 

20  IFJC0ORJ>INTÍX.>#10+1THENPRIHTU[5CRSRIJ] 

Sí  ( I  + 1  1  = "  [  SH  I FT  +  J "  THEN I  =N--J  Ci  1  OS  1 

" • GÜT019 

50  3f  IT-SíCI  +  l  ■  GOSUE65 

21  INPUTSÍÍ J) -  GOTO 1 16 

51  NEXT  Sí U "  C  SH  J  F  T  +  J  "  GOT  CU  4 

22  ñ$="-l "  PRINT" [2CRSRD] INTERCALAR" 

52  1  'R I NT " [ 2CPSRD J ORBE NRR l SPC  1 " .  GGSU 

RJ  :  INPUTA*  :  J=VAL<At)  :  G0SUE27  IFAO0T 

BB2  U^Vml.  '  h  t  ■  ■  1 F  U  .  00 PCI;  \  l'T  HENoO  1  08 

HEN9 

53  I  Fr-U  I'  í 1  =■  f  '■  U  :■  ■  J  ■  1  1  ™ "  [  RVSOM  J "  T  HENU= 

23  IFJ<0GRJ>INTOO*10+1THENPRINT"[5CRSRUJ 

U  +  ; 

" : GOT 02 2 

54  O0SUBS3  •0^0  FrCiRl=UTuM  ÍFLEPTí '-.S 

24  PRINT "ENTRADA" ■ INPUTDí  PRINT" INSE 

f í.  i  . ,  i ^ '■  [rvsün .i  - thenKm* j.  nn=  i-i  •  r -k 

RTANDO" : IFR=NTHEN14 

K 

25  G0SUB86 : F0RI=KKTÜJ+1STEP~1 : Sí< I >  = 

55  NEXTI  IFf -1THEN57 

Sí(  1-1 1  :  NEXT  :  Sí< J>=Dí :  G0T01 16 

56  NN=íO 

26  Eí="C,P,E ■ I ,N,S,L,H,Q,R, ?[RVS0FF ] 

57  I  =0 

[SPOT "  PRINT" [RVSON] [CRSRD] "Eí" [CRSRL] 

58  J  :=IJ  I F  J  -HN-’UTHEN  1 4 

[2GRSRU] "  :  GOS LIE 63 

50  IF  J-NN"I THEH62 

27  R=0:FORI“1TO13: IFMÍDSCEÍ, 1*2-1, 11 

SO  1 FSÍ 1  T >S j; .  J+l  .THENPf=Sí '7  ■  S *(.J  ■ 

=AÍTHENR=I : 1=13 

28  NEXTI : RETURN 

29  G0SUB661  IFfttO"S"THEN4 

=£í-:  '  +  1  ■  Sí  r  7+1  '=PÍ 

61  J=7+l  GOTO 59 

62  I  -  i  + 1  ■  POKE  368  ?  9  .  I N  í  C  RNB F. +  8+ 1 84  1 

30  PRINT “NUEVO [SPC 3 NOMBRE! SPC] DEC SPC] 

: GOT 058 

ARCHIVO"  INPUTTÍ  ■  G0SIJB81  G0T04 

63  CETRÍ  :  IFR$=MfJTHEN63 

31  PRINT" [ CLR ] ! RVSON ]C  CRVSOFF I ATALOG 

64  RETURN 

0 [ CRSRB ] " : PRI NT "VER [SPC ] [ RVSON ]PC RVSOFF ] 

65  PR  I  NT  "  í  HOM  ]  "  T  RB '  37  •  .  I  RE  RipN 

AGINñCCRSRD] "  PRINT" [RVSON] I [RVSOFF J 

66  PRINT" C2CPSRH] [ PVSON JESTRS [ SFCJ SE 

NTERCALAR"RÍ 

GURÜ?[SPC]S/H" ■ GGSUB63  RETURN 

32  PRINT " [ CR3RD] [RVSON ] E [RVSOFF ] NTRA 

67  PRINT  "  t  CLP  J  [ RVSON 3 COR  1  fl [SPC  J I PIRRE 

R"RÍ  PRI NT" [CRSRD] [ RVSON ]G [RVSOFF ]UI 

G0SUB66  I  FRÍO "  3  "  THEN4 

TAR"RÍ : PRINT" [CRSRD ] ORDEN [SPC] [RVSON] 

68  F'R  I  NT "  EL  [  SPC  J  RRCH I VO  [  SPC  3  ENTERO V  " 

A[RVSOFF]LFABETICOCC;RSRD] "  PRINT" [RVSON] 

:  G0SUB6S  IFñí=  "  S"  THENF=0  Í1=H  GOTO?! 

N [ RVSOFF 3 UEVOC SPC] ARCHIVO [CRSRD] " 

69  G0SUBS2  F=VñL--.Rí:>  I F F < O ÜRF > N 0 0 T Ü 6 

33  PR I NT " [ RVSON ]L [RVSOFF ] OAD [ SPC ] DE [ SPC 1 

~7 

C I NTA [SPC ]QC SPC] DISCO"  PRINT" [CRSRD] 

70  PR  I  NT 11 T  ERM I NRNBO  C  SPC  JEN"  Rí  INPUTñ 

[RVS0N3S! RVSOFF ]AVE[SPC]A|$PC] CINTA [SPC] 

OÍSPC] DI  SCO [CRSRD] " 

í  H=VRL  < Rí  ■  : IFnCOORMTNORM-CFTHENCT 

Sigue _ | 
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MANEJO  DE  FICHEROS 


>f 

LISTADO  1  (Cont.) 

94  Tf*=NÍ  T$*LEFTf  <  Tí  .  LENCTí  >-2>  PRIN 

71  0PEM4 , 4  fl$= "  "  ■  FOR  1  =  1  TOINT í  i40— LEN- 

T " [ CRSRH  3 [ RVSÜH ] ENCONTRADO [ SPC  3  M  T $ ■ I 

(Tí,1  'j/2'J 

NPUT#J , K 

72  RÍ-RÍ+ Jl  [SPC  3 "  HEXT  I  '  AÍ- Aí  +  "  [ RVSOFF  3 

95  IFK>NTHENPRIHTM[CRSRB3CRVSÜN3RTEN 

■'  F'R  I  NT#4  -  GHRÍ  ■■  1 4 ) AÍ+TÍ+FÍCHRÍ  C1 0 )  OH 

CION  "  PRINT "EL CSPC J ARCHIVO [SPC 3 FUE C SPC 3 

Rí ( 10) 

CREA BO C SPC 3 CON [ SPC J MAS ISPC 3 MEMORIA" 

73  LL=4  :  FORI  =FT0f1  I FLEFTÍ  <  Sí  <1  >  ,  1  >  =  " 

K=N 

[RVSON 3  "THEN76 

36  FOR I =8T0K : INPUTtt J , Sí < I >  G0SUB65  N 

74  IFSÍí  1'  "  [SHIFT*3MTHENF'RINT#4,  CH 

EXT : CLOSEJ : GÜT04 

Rí '  15) " [5SPC]"S*<  I  .'CHRíae,  :  LL=LL+£ 

37  PRINT" [RVSOH][ CLR3 LISTA [SPC 3 DE [SPC 3 

75  GOTO 7 9 

LOS  C  SPC  3  F I CHEPOS  í SPC  JEN  C  SPO  3  ü I SCO?  í CRSRD 3 

76  hí—  " "  F0RKK=7T0LEH<Sí  í  I?  :i*6 

"  GÜSUB63  :  IFAÍO"S"THENRETURN 

+CHRÍÍ255)  :  HEXTKIC 

98  F'R  I  NT  "  t  CLR  ]  [  RVSON  3  BUSCANDO  t  SPC  3  EN 

77  PRIHT#4j  <lC5SPCll,G$+flí  ■  PRINT#4,Fí+ 

[ SPC  3  EL  C  SPC ] B I  SCO  C  CRSRD  3 " 

"  [  53PC3  "  +SÍ 1  >+GS 

99  OREN  1,8.0. "ÍO" 

78  PR I NT#4 , Fí + " [ 5SPC ] " +GÍ +RÍ+F  ÍCHRÍ  < 

10O  GETttl , Aí . Eí 

10)  LL-LL+4 

101  GET#1 , AÍ, Bí 

73  1  FLL>59THEHFtlRNL=LLT072  :  PRIHT#4  ■  C 

102  GET#1 , Aí, 

HRÍ(  10).;  ■  NEXTML  PRINT#4,""  LL=3 

103  C“0 

80  NEXTI ■ CL0SE4 : G0T04 

104  IFA tCJ  11  HTH£NC“ASC(  Aí ) 

8 1  FOR J=0TOH : 3t < J )  =  " C SH IFT#] " : HEXT  J 

I  OS  I  FBíO fl  >J  THE  Ni>i>ASC  >:  E:í  > *256 

RETURH 

1 06  Iií=B$+"  [  RVSON  3 "  +M IDÍ  <  3TRÍ  <  C  ' ,  2  >  + 

82  PR I MT " COMENZANDO C SPC3 EN " R$ :  IHPIJTR 

"  [RVSOFF! M 

í  RETURH 

107  GET#  1 ,  Eí  IFSTO0THEHCLOSE1  ■  PRINT 

83  FORI*HTO0STEP-1  IFSÍCDO" tSHIFT#] 

RETURH 

"THEHKK=I  1=0  G0T085 

i  08  IFBÍOCHRÍ  ( 34)  FHEN1G7 

84  KK=I 

109  GET#1 ,  Eí  I  F’BÍ  OCHRÍ  34  >  T  HENDÍ  "Bí 

85  HEXT 1  RETURH 

+Ii  í  '  üOTDl  09 

86  FGRI=J+1TÜH  :  IFS*a)  =  "CSHIFT#]"THE 

110  GET#  1 ,  Eí  I FBÍ =CHRí 1 . 32 )  Í'HEN  1 1 0 

NKK=I : I =H : G0T035 

111  CM"'1 

87  KK=I 

112  CÍ”C$  +  B$  =  GET#  I .  Bí  '  IFB$<  :: "  "THEN1 1 

B8  HEXT I' RETURH 

2 

83  FORI=HTO0STEP-1  :K=I  :  IFSí  1 1)0"  [5HIFT*] 

TI  3  IFRIGHT Í<DÍ  1 H I F T X 3 " THEHPR  I 

"THENI=0 

HTDí 

90  HEXTI  K=K+1 

11 ‘i  Dí”"  "  ■  GOT 0 1 Ü 1 

91  PR I  NT# J i Tt+“ C SPC ] [ 3H I FTX) " : PR I  NT# 

115  v=Y“i  GOTO 11 8 

J,K- FORI=0TOK 

116  IFLEFTÍ  1  Sí'  T  j  ,  i  >=ll^'THENSí'  [RVSOHJ 

92  PRINT# J , Sí( I ) : G0SUB65 : HEXT  GLOSE J 

"  +  PIGHT  f  1  S i Ci  >,  LEí-KSf.'CT  ■  ■-!> 

GOTO  4 

117  GOTO  IT 

93  IHPUTttJ  ■  Hí  '  IFRIGHTÍ  C Hí  j  2)0"  [SPC] 

1T;Ó  FOR  1 -0TOC  U  fv  1,  PX  L  ■'  "  [8HIFT*]  " 

[SHIFTX]  "THENPRIHTHÍ"  tSPCINÜCSPOENC 

he:  :ti  FOF:  I  ”LTOV  PXv  í.  1  ~  FT [ 1 .  l  +  l  >  ■  HEXTI 

ONTRRDO" : G0SUE63  OLOSE J : 00104 

LfL-1  RETURH 

_ _ _ - _ - 

► 

LISTADO  2.  BASE  DE  DATOS  C-Ó4 

10  PÜKE53281  -  14  T$“JISIN[SPC 3  NOMBRE" 

¿0  pr  i  M  r "  C  CLP  ]  L  UIHT  ]  HOMBRE  C  SPC 1  BE  [  SPC  ] 
ARCHIVO1'  INPU1TÍ 

25  PR I  NT Hl  C  6CRSR  D  K  1 4SPC  3  ESPERE  C  SPC  3  P 
ÜRLSPClFñVÜR"  TÍ=LEFTÍCTÍ,  14.' 

30  H*  1 000  :  p=  1  Xa  c N+ 1  >/T0  :  B I MSÍ  '■  N >  :  Rí 
=  »  C  SPC  3  L  I NEH# 11  1  0ÜSUB8 1 0  ■  GOTÓ80 
40  K=0 

50  pafi  PP IHT  M  L  CLR  3  C  WAT  3  [RVSON  ]  CATALO 
GÜ  [SPC 3  "  .i  T $"  E2CRSRB3  "  '  PRINT "PAGINA" 

b¡0  FORJ=KTÜH  1 F  ASO  ( Sí  ¿  J  >  >  =  1 81  HENPR I H 
T 11  [  CRSRL  3 "  INT  < J/ 1 0+ 1  > ,  Sí  <  J )  0=0+ 1  :  IF 
QM0THEN80 
70  NEXTJ 

30  GD3UB26Ü  IFA^OTHENSO 
90  QNAGOTÜ40, 120, 190,220,290,360,410 
.670,470,  529, 

100  IFJ<H+1THENK=J GÜTÜ50 
110  GO T 040 

120  PR 1 NT " [ 2CRSRD3 PRO  I  MR# "  =  INPUTAÍ-P 
=VAL 1  Hí  >  GÚSUB270  1FRO0THEN90 
130  I FPO  ÜRP>XTHEHPR  I NT"  í  3CRSRU  3  "  :  GO 
TÜ 1 20 

140  PP  1  NT  "  [RVSÜH  ]  [  CLR  3  PPG  1  Nfl 11 P ,  Tí "  [2CRSRD] 

N ¡ FORI=0TO9 ■ L=CP-1 >#10+1  PRINT" [CRSRL3 

"U  Sí  <L>  :  NEXT 

150  GOSHB260: IFfl=0THEN150 

160  IFAO12THEN90 

170  P=P+1  I FP>XT HEHF- 1 


ISO  GOTO  140 

190  Aí="-1 "  PRINT'1  [2CRSRD 3 ENTRAR" Rf 
INRUTAÍ  J-VALÍ AÍ )  ■  GOSUB270  ■  IFRO0THE 
N90 

200  I F J<60R J> I NT CÁ)W.  10+1 T HENPR I NT "  [ 5CRSRU 3 
" : GOTO190 

210  I NPUTSÍ  <  J  > : GOT OllSS 
¿20  ■ PRINT"  C2CRSRII 3  INTERCALAR 

"Rí  :  IMPUTA*  :  J=VAUfilO  :  GOSUB270  •  JFRO 
0THEN90 

230  I  FJ<0OR  J>  I  NT  Oí-)  *  1 0+ 1 T  HENPR  3  NT  "  C5CRSRU  3 
" : GOT O 220 

¿40  PRINT" ENTRADA"  :  I NPUTUÍ  :  PP  INT"  I NS 

ERTRNDÜ"  1FR=NTHEN140 

250  ÜOSUB860 ■ FQRI=KKTÜJ+ 1GTEP-1 :SítI 

)=Sí'.'  1-1  >  :  NEXT  :  SÍU>-DÍ  :  GOTO!  160 

¿60  Eí"NC .  P,E, 1 ,  H ,  S ,  L, H ,  Q ,  A , ? CPVSOFF  3 

[SPC ] " : PR I NTTRB í 3 > " [ RVSÜH 3  CCR3RB 3 " E í 

11  CCRSRL3  C2CRSRU3  "  :  GÜSUBS30 

270  R=0 ' FOR 1= 1T01 3 : IFMIDÍÍEÍ, 1*2-1, 1 

)-AÍTHEHR=I ■ 1=13 

230  HEXT I : RETURH 

230  GOSUB660  IFAíO,‘S"THEN40 

300  PRINT " NUEVO [ SPC 3 NOMBRE [ SPC ] BE [ SPC 3 

ARCH  I VO "  1NPUTTÍ  Ü0SUB8 10  :  GÜTÜ40 

310  PRINT " [CLR 3 [RVSQN3CC RVSOFF 3RTAL0 

GGCCRSRB3 "  PR IHT "VERE SPC 3 [RVS0N3PÍ RVSOFF 3 

AGINACCRSftli]  "  :  PR  I  NT 11 1  RVSÜH  J  I  [  RVSOFF  3 

NTERCRLRR"RÍ 

320  PRINT"  CCRSRII 3  [RVSON 3 EC RVSOFF 3NTR 
ñR"RÍ : PRINT" [CRSRB3  C RVSON] O [RVSOFF JU 
ITAR"RÍ  PR I N T " C CRSRB 3 ORDEN í SPC 3 1 RVSON 3 


► 
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H  L  RVSOFF  JLF  AFET 1 CÜ  E CRSRD]  11 

325  PR I NT 11  [ RVSON JNC RVSOFF ] UEVG C SPC] H 

RCHI VÜEGRSRD3 11 

3 30  PP I  NT  "  [  RVSON  ]L  [RVSGFF  3  OñH  ESPC  3  I'E 
E  SPC 3 C I NT  A  [  SPC ]  Ü  C SPC3 Ti  I SCO  "  :  PRINT"  [CRSRD] 
[ RVSON 3  SL RVSGFF ]  AV E C SPC] PC SPC ] C I NTR í SPC] 

O  E  SPC:  ]  fl  I  SCO  E  CRSRD  3  " 

340  PRINT" CRVSON37C RVSGFF HSPC3DEFIN 
I C I ONES "  PR  I  NT "  E  CRSRD 1 1 RVSON  3  H  E  RVSOFF  3 
[ SPC ] L I STAR C  SPC 3  H [ SPC  3 1 MPRESOPH L CRSRU 3 
" ■ 00306260  I FA=0THÉN3 1 0 

:":sm  0111090 

360  PR I  NT " E  CLR 3  C BLK 3  3AVE 1 SPC] RC  SPC 3  C 
J  NIA  [  SPC  ]  □  [  SPC  3 D I SCO 1 '  GOSUBS60  IFAÍC 
> "SM  THEH40 

370  PR 1  NT " E  RVSON  3  HE  RVSGFF ] 1 SCO C SPC 3 O 
C  SPC ] C RVSON 3  C E RVSOFF 3 I  NTR? 11  GÜSUBS38 
1FA$=  MC 11 THEN40O 
380  IFh$<j;J'D"  T  HEN4Ñ 
330  OREN 2  ■  8  -2,  "W  ■  F'+Ti+"  LSPC3  ESHIFTXJ 
,  -p-i  W"  ■  J~2  '■  00 TOS 90 

400  OREN  1 -i  1 ■ Tí  PR I NT# 1 ■ Tí  J=1 : GOTO 
830 

4 10  PR I NI " [ CLP ] E RVSON 3 LUFffi [ SPC IDE E SPC 3 
■„  I NTHCSPC  J  Ü  E  SPC  J  D  l  SC  O "  :  GGSUB660  :  l  FAi 
M  S 11  r  HE  N40 

420  PR  C  NT  11  [RVSÚNJDt  RVSGFF  ]  I SCO E  SPC  ]ü 
E  SPC 3  E RVSON 3  C  C RVSOFF  3 1 NTA ?"  GOSUB630 
I.  F  l í  ~  1 1 "  THEN460 
430  t  P  RÍO "  Ii "  THEN40 

440  G0SUE3  ;"0  PR  I  NT "  C  CRSRD  3  NOMBRE  C  SPC  ] 

LEE  SPC  3RRCH  I  V0:>"  INPUTNÍ  :  IFN*“11  "THEN 
40 

450  ÜPEN2.-  3>2>  "0  "+HÍ+" ESFC3 ESHIFTX] 

■  S  .■  R  "  J=2  :  GOTO930 

460  OREN  1,1.  ■  ü  J“1  GCTÜ330 

4  Ti]  F'R I HT  m  i  2 CRSRD ]  OU  l  TAP  E  SPC  ]  L.RE  SPC  ] 

LIMEM" Fr:l  I NPU  EAÍ  '  J~VHL '■  Aí  1  GOSUB270  ' 

IFñOUTHEN90 

400  I F  i  "  0í  iR  J  ■  NTHENPR I  NT ,J  E  2CRSRU  3  "  CO 
E04  TU 

4  i  \  QR 1  ~.l  1  UN- 1  I FS  í'  L  ■'  =  "  [  SH 1 F  T*  ]  "  RM 
l.'ST 1  I  M  :<-H  [SHIFT*  j  "THENI’H-  J  GÜTijOIO 

:,00  C  |  |  ,  ,  J  H  [  ,  I  j'ÜSUBSCO 

5 1 0  HE :■  r  3  i1  N.'j~"  OH  I FT  *]  "  L  GOTO  i  40 
520  F'R N  r  "  i  2C  RSRB  3  ORDENAR  L  SPC  3 "  SOS 
UBS2Ü  U^VRL  1  Ai  1  I  FU  CuOPU  NT  HENO  OT  OSÓ 

530  I FM 1  Di'-  Sí  .  U  .> ,  1.1'  - rl  t  RVSON  3 "  THE  Ni 
=0+1 

540  O  OSUR  SCO  :  K=0 :  FOR I  “UTOKh:  I FLEFT  í  < 

'■  Sí  C  I  .'  )  *  1 "  ERVSOM  3 "  THENK-1  NN^I-l  í 
-KK 

550  NEXTI ■ IFK-1 THEN570 
560  NN=KK 
570  I "0 

5S0  J slj  I F I  -NN-UTHEN 1 40 

530  I F J * N N- 1 T  H E N620 

600  IFSIX  J+  l>THENPf=SíC.T  >  :  Sí'  t 

;i  =s$':j  *'i:> 

610  TsJ+1  :COTO5¡30 

620  1  =  1  +  1  =  ROKE5O2S0 ,  I NT C RNIi < Y >#15+13 
GOTO 586 

630  OETflí : IFHÍ=" "THENS30 
648  RETURN 

650  PRINT"  lHÜM]  lfTñEC30>  /  I  RETURN 
660  PE:  I  NT 11  í  2CRSRD  3  C  RVSON  3  ESTAS  C  SPC  ]S 
EGURÜ? C SPC3SXN " = OOSUBS30  RETURN 
670  PRINT pl  [  CLR  3  [  RVSON  3  OOP  IRE  SPC  J I MPR 
ESB"  :  GOSUBS60  =  IFRf  O*,-S"THEN40 
680  PRINT " EL [ SPC ] RRCH I VG ESPC 3 ENTERO? 

" ¡ GOSUB630 : IFRÍ="S"THENF=0 ' M-N  GOTO? 

10 

630  GOSUB820  F=VñL<AÍ3  IFF<0ÜRF>NGÜT 
0670 

700  PR I NT " TEAM I MANIJO ESF'C] EN" Rí  INPUT 
H#  M=VñL<ñt> : IFMC0ÜRM>NORM=LFTHEN670 

710  0PEN4í  4 ' AÍ-" "  FORI“1TOINT < 1 40-LE 
NETí3> 723 


► 


720  AÍ=Ai+" ESPC 3" ’NEXTI : Af=Aí+ " C RVSOFF ] 

"  :  PRINT  #4  -  CHRÍ  i  1 4  >  Hí +T  Í+FÍCHPÍ  <  1G>CH  Rí'.  ICO 
73Ü  LL=4  FGRI=FTOM:  I  FLEFTf  ■:  Sí  ( I  >  ,  l‘>=a 
M [RVSON J " THEN760 

740  IFSíC I > O " [ SH I F T# ] M THENFR I NT#4 f C 
HRÍ  C  1 5  "  [  5 SPC  3  "Sí  C  I  > CHRf  C  1 0 >  L L=LL+2 

750  G0T073Ü 

760  R$^  M  "  :  FORKK-7TOLEN  •:  Sí  C  I  >  >  #6  HÍ^M 
Í+CHR$C255> : NEXTKK 

776  PRINT #4, " E 5SPG 3 " Gí +AÍ  PR I NT #4 , Fí 
+  "  C5SPC-3  M+S$<  I  HGf 

730  PRINT #4  Fí+"  E5SPC3  "+0$+fí$  +  FíCHftí 
(10)  LL=fLL+4 

730  IFLL>59THENF0RNL=LLT072 ; PRINT #4 . 

CHR*<  10)  .■  :  NEXTNL  ■  PR1NT#4,  " "  e_L==S 
300  MEXTI : GLOSE 4  G0T048 
310  FÜR  J“0TON  :  SÍC  J)  = "  C  SH I  FT#  3  "  :  NEXT-T 
RETURN 

320  PR I NT " CGIIENS ANt'Ü E SPC  3 EN " Rf  ■  INPUT 
ñí  RETURN 

330  FORI«NTG0STEP-1  IFSf < I ><>" ESHIFT#] 
"THENKH-I  1-0 : GOTO350 
340  KK- I 

850  NEXTI  RETURN 

860  FORI=J+1TON:  IFSÍí  I  -’1  í  SH  I FT+  ] "  TH 
ENKK=II=N  O OTOS 50 
870  tíK-I 

880  NEKTI ■ RETURN 

33G  FORI=NTO0STEP"i  K~ I : IFSÍ ( I > O " E SH I FT# J 

"THEN 1=0 

300  NEXT I : K=K+ 1 

3 1 0  PR  1  NT#  J ,  T$+ "  E  SPC  3  C  SH  IFTX  3 ,J  ■  PR  I  NT 
#,MOFORI=0TOK 

320  PRINT tJ  ■  Sí(  I GCISIJB650  :  NE X  í  ■  CLOS 

EJ  00 T 040 

930  INPUT#], Ní 

335  IFRIGHTÍ < Ni , 2  ? O " E  SPC J E  SH I F  T  X 3 " T 
HENPP I NT Ní J|  f  SPC  3  NO  E  SPO  ] ENCONTRADO "  G 
OSUB630  CLOSEJ  001040 
340  T$~HÍ  TÍ-LEFTÍ  (Ti LEN T$>  -2  ■'  PRI 
NT " [ CRSRD ] C RVSON  3  ENCONTRADO C  SPC J " Tí ■ 

INPUT#,]  ,  K 

350  I FK>N T HE  NPR I  NT " E  CRSRD 1 E  RVSON  3  ATE 
NC I ON  11  :  PRI  NT "  ELE  SPC  J  HRCH I  VG  ESPC  3  FUE 
ESPC  3  CREADO  [  SPC  ]  CON  E  SPC:  ]  HAS  C  SPC  ]  HENO 
RIA" ¡K-N 

360  FOR I =0TOK  I NPUT#  J , Sí '  i > : GOSUB650 
NEXT : CLOSEJ : GOTO 40 

370  PRINT " [ RVSON 3  E CLR  JL ÍSTA ESPC 3 DE í SPC 1 
LOS  ESPC  J  F  l  CHE  ROS  E  SPC  3  EN  ESPC  3  D  i  SL  O'"'  E  C  PSRD  ] 

" ' GOSUB630 : I FAí O "S " THENFETURN 
980  PR  1  NT 11 1  CLR  ]E  RVSON  3  BUSCANDO  ESPLT]  E 
N  ESPC  ]EL  ESPC]  I'I  SCO  ECRSRD]" 

990  *  'PEA  1  j  8,  0 ,  "  :F0 " 

1000  GET#1 ■ flí . Bí 
101Ü  GETttl ,AÍ ,BÍ 
1020  GET#  1  .  Ffí  ,  Bí 
1 030  C"=0 

1040  1  FRÍ  O 11 "  THENC-RSC  CAÍ  :> 

1056  IFBÍ  O"  "  THENC=C+RSC  ::  Bí  :'  +  256 
1 060  Dí  =  DÍ  4  J|  E  RVSON  J  "  +M I  Di  <  STRÍ  i  ' ,  2 
+ " E RVSOFF ] " 

1070  GET#  1  ■  Bí  I F ST Ofi T HEí 'IC LOSE  1  PRIN 
T  RETURN 

1 080  í  FBíOC  HRi 34  >  THEN  1070 

I  090  GE  r  #  1.  ,  Bi  I  PEÍ  CHRí  ■  34  >  rHEND  í  -D 
Í  +  E:í  GOTO  90 

1100  GETttl ..  Dí  IFEÍ=CHF?$'  32  THENlUiu 
1110  Cí-H" 

1120  CÍ^Cí+Eí  GETftl ,BÍ ’  IFBÍ  .  "  "THÉNí 
120 

I I  30  IFPIGHTÍ  '•  Di  1  ■  -"tSHlFTX]  "THE! ipR 
]  NT  Dí 

1 140  DO""  GOTO  10 10 

1150  Y-t  1  FOR  1-00!...  ..i'  i  POLI  ='H  i 

"  HEXTI  :  FÜPT-L  vmV  PX'  I  '-RX-:  1  '  !  ■  H*  : 1 
I 

1155  L~L- 1  FETUPM 

1160  J  E  *..EPT í  ■  Si'  J  '  :  THENSI  ■  J  ' 

C RVSON 3  "+PIGHTÍ  '  :>3 1  J  ■  LEN'  sí  ■  !  ■  ■  " 

1170  OOTOH0 
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EXCURSION  POR  LA  MICROPROGRAMACION 


Cursillo 

de  Lenguaje  Máquina 

CAPITULO  I 


Por  Diego  ROMERO 

Introducción 

Dado  el  creciente  interés  que  está 
despertando  entre  nuestros  lectores 
la  programación  en  lenguaje  maquina  y  la 
escasez  de  publicaciones  en  español  sobre 
este  Lema,  hemos  pensado  comenzar  en 
este  número  un  cursillo  sobreestá  materia 
que  empiece  desde  cero  para  que  todos 
puedan  seguirlo. 

Aquellos  que  ya  tengan  conocimientos 
sobre  este  tema  comprenderán  que  es 
necesario  partir  de  cero  en  un  curso  de 
este  tipo,  y  espero  que  tengan  paciencia 
hasta  que  lleguemos  a  un  nivel  que  pueda 
ser  interesante  para  ellos,  aunque  no  esta¬ 
ría  nada  nial  que  repasasen  un  poco  lo  que 
ya  saben  desde  hace  tiempo.,,  y  de  paso 
podrían  hacerme  llegar  cartas  con  opinio¬ 
nes  y  sugerencias  sobre  el  tema. 


Para 

VI 020  y  064 


Existe  una  primera  dificultad  a  la  hora 
de  programar  en  código  máquina,  y  es  que 
el  ordenador  trabaja  con  ceros  y  unos, 
mientras  que  nosotros  lo  hacemos  con 
números  del  cero  al  nueve.  Para  tratar  de 
aclarar  un  poco  el  asunto,  aquí  Leñéis  este 
artículo  y  el  programa  que  lo  acompaña. 

Sistemas  de  Numeración 

Desde  que  el  hombre  existe,  creo  que 
decidió  utilizar  los  dedos  para  con¬ 
tar  cuántas  gallinas  le  daría  a  su  vecino  a 
cambio  de  su  cerdo,  de  aquí  que  comen¬ 
zase  a  hacer  sus  cálculos  con  diez  números 
del  cero  al  nueve:  y  si  no  fijaros  en  los 
niños  pequeños  que  todavía  no  saben  con¬ 
tar,,.  ¿Cómo  lo  hacen?...  Con  los  dedos. 
Nota:  Esta  es  una  opinión  muy  personal 
y  puede  no  coincidir  con  la  realidad.  De 
hecho  creo  que  no  fueron  gallinas,  me 
dijeron  que  pudieron  ser  lerodá etilos  pre¬ 
históricos  o  algo  similar. 


Sea  como  fuere,  el  caso  es  que  nosotros 
utilizamos  el  sistema  de  numeración  lla¬ 
mado  decimal,  y  los  ordenadores  trabajan 
con  ceros  y  unos  solamente,  decimos  que 
trabajan  en  binario.  ¿Cómo  podremos 
descifrar  este  sistema  de  numeración?... 

Vamos  a  fijarnos  un  poco  en  el  nuestro. 
Tomamos  un  número  como  ejemplo  y  lo 
deseo  nipón  emos: 

709=7X  J  lE  Til  X 1 0 1 +9X 1 00- 7 00+0 T  9 
¿Cómo  lo  haríamos  con  el  número  1101 
de  nuestro  ordenador?  Veamos... 

NO  ]  -  1X2H-  lX2M)X2'+lX2D=8+4-0+  J— 13 

Aquí  tenemos  la  norma  para  realizar  la 
conversión.,.  Para  pasar  un  número  de 
binario  a  decimal  basta  con  ir  sumando  el 
número  2  elevado  a  la  potencia  corres¬ 
pondiente  al  lugar  que  ocupe  cada  dígito 
uno  en  el  número.  Los  lugares  ocupados 
se  numeran  de  derecha  a  izquierda 
comenzando  por  cero: 

2n .  2J,  2\  2-,  2\  2". 

luego  1  ü  1M0  será  igual  a: 
25+0+2^+22+2'  10  =  32  I  K -4+2-46 

Para  realizar  la  conversión  en  sentido 
inverso,  tenemos  que  ir  dividiendo  por 
dos  el  número  que  queremos  pasar  a  bina¬ 
rio,  y  los  restos  de  las  sucesivas  divisiones 
junto  con  el  último  cociente  nos  dan  el 
número  binario  buscado. 

Ejemplo:  23  :  2  -  II  resto  1 
11:2-  5  resto  I 
5:2=  2  resto  I 
2:2=  1  resto  0 

Corno  el  ultimo  cociente  ha  sido  1, 
entonces  23  en  decimal  equivale  a  101  1  I 
en  binario. 

Otro  ejemplo: 

I0;2=5  resto  t) 

5:2  =  2  resto  I 
2:2=1  resto  0 

El  ultimo  cociente  fue  1 ,  luego  10  deci¬ 
mal  es  1010  en  binario. 

Ya  hemos  visto  cómo  pasar  un  número 
de  binario  a  decimal  y  viceversa.  Pero 
tenemos  un  problema  más,  que  es  la  faci¬ 
lidad  de  equivocarnos  que  podemos  tener 
cuando  escribimos  un  número  con  varios 
unos  y  ceros.  Para  evitar  esto  los  agrupa¬ 
remos  en  grupos  de  cuatro  bits  (dígitos 
binarios)  y  los  utilizaremos  en  hexadeci- 


BINARIO 

HEXADECIMAE 

DECIMAL 

OCTAL 

OOOÜ 

0 

0 

0 

(1001 

1 

1 

1 

0010 

2 

2 

2 

0011 

3 

3 

3 

0100 

4 

4 

4 

0101 

5 

5 

5 

0110 

6 

6 

6 

0111 

7 

7 

7 

1000 

8 

8 

10 

1001 

0 

0 

n 

10(0 

A 

10 

12 

1011 

11 

li 

13 

1100 

C 

12 

14 

1101 

D 

13 

15 

1110 

E 

14 

16 

lili 

F 

15 

17 
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mal  (base  16).  La  equivalencia  entre  bina¬ 
rio  y  hex  adecimal  la  podéis  ver  en  la 
siguiente  tabla. 

Antes  vimos  que  el  23  decimal  era 
101 11  en  binario,  y  en  hexadecimal  será  17 
(0001  01 II). 

Corno  podéis  observar  ha  aparecido 
una  nueva  columna  en  la  labia,  la  del 
OCTAL,  que  es  un  sistema  de  numeración 
con  base  8,  El  cambio  de  base  octal  a 
decimal  se  hace  igual  que  el  del  binario  a 
decimal,  pero  usando  las  potencias  de  8  en 
lugar  de  ¡as  de  2. 

Ejemplo; 

27  en  octal  es  2X8 1 +7X8 l>- 16+7-23  en 
decimal. 

El  cambio  en  sentido  inverso  es  igual 
pero  dividiendo  por  8  en  lugar  de  dividir 
por  2* 

Para  efectuar  la  conversión  de  decimal 
a  hexadecimal,  es  mejor  pasarlo  a  binario 
y  agruparlo  en  grupos  de  cuatro  bits. 

Ejemplo:  84  decimal  será  en  binario 
84  :  2  -  42  resto  0 
42  ;  2  =  2 1  resto  0 
21  :  2  —  10  resto  1 
10  :  2  =  5  resto  0 
5:2—  2  resto  1 
2:2=  I  resto  0 

Ultimo  cociente  =  1  ...  en  binario  es 
1010 100 

Si  el  número  binario  1010100  lo  agru¬ 
pamos  en  grupos  de  cuatro  bits,  será  101 
0100  y  mirando  la  tabla  vemos  que 
corresponde  a,,.  5  4  en  hexadecimal. 

En  octal  las  divisiones  por  8  nos  darían: 
K4  :  8  =  10  resto  4 
10  :  8  =  1  resto  2 

Ultimo  cociente  —  1  luego  en  octal  sería 
124. 

Otro  modo  de  obtener  este  resultado 
podría  haber  sido  agrupando  el  número 
binario  en  grupos  de  tres  bits  y  mirando 
en  la  tabla. 

1010100  -  ÍXH  010  100  —  1  2  4  en  octal. 

¿Cómo  distinguir  un  número  cuando 
está  en  base  2,  8,  10  ó  16? 

Teóricamente  se  debe  indicar  la  base  en 
que  está  escrito  un  número  añadiéndole 
un  subíndice  a  la  derecha,  pero  ésta  no  til¬ 
dón  com plica ria  demasiado  la  escritura 
de  números. 

Ejemplo:  84¿1?=  124,, -  M^=  1010100 i  , 

Para  simplificar  la  notación,  se  suele 
utilizar  e!  símbolo  del  dolar  ($)  para  indi* 
car  que  el  número  es  h  ex  a  decimal,  el  de 
tamo  por  ciento  (%)  para  el  binario,  y  el 
símbolo  @  para  el  octal.  Dejando  los 
números  decimales  sin  prefijo. 

Ejemplo:  84  -  @  124  =  S54  =  fe  10.1 0100 

Para  practicar  sobre  la  conversión  de 
una  base  a  otra,  conviene  que  lo  hagáis 
con  papel  y  lápiz  hasta  comprender  bien 
la  mecánica  del  cambio  de  base,  y  podéis 
utilizar  el  programa  que  aparece  en  el  lis* 
tádo  para  comprobar  que  no  habéis  come¬ 
tido  errores  en  la  conversión. 

El  programa  pregunta  la  base  en  que 
queréis  introducir  el  número  y  contestará 
d  mismo  número  en  las  otras  bases. 

En  d  próximo  número  comenzaremos 
con  La  descripción  de  la  serie  de  instruc¬ 
ciones  básicas  de  carga  y  almacenamiento 
de  un  registro,  es  decir,  con  el  principio  de 
lo  difícil  i  lio, 

[Practicad  la  conversión!  y... 

Hasta  pronto. 


1  REM*  PROGRAMA  CAMBIOS  DE  BASE  * 

2  PR I NT " C  CLR ] [ CRSRD  3 E 3SPC 3 CAMB 1 0  C  SPC 3 
DE  í SPC 3 BASE " 

3  PR  I  NT  "  E 2CR5RB 3 C RVSON 3 1 E  RVSOFF 3 C  SPC 3 
BINARIO" 

4  PR I NT " [ 2CRSRD ] l RVSON 3 2 E RVSOFF 1 E  SPC ] 
OCTAL11 

5  PRINT " [ 2CRSRD3 C RVSON33E  RVSOFF 3 ESPC3 
DECIMAL" 

6  PR I NT M E 2CRSRD ] í RVSON 3 4 [ RVSOFF 3  E  SPC  3 
HEXADECIMAL" 

7  MEÍ  = 11 E  2SPC  3  DATO  E  SPC  3  ti  /4  )  ? 1 11  :  GQSUB2 
6 

8  PR I NT " E  C RSRU 3  E  2 1 SPC  3  t  CRSRU 3 " = ON VAL 
(2$  j'GGTÜl  0,  12  /  14  r  16 

9  GOTO? 

1 0  EASE=2 = I NPUT " B I N " ; DAS  G0SUB3 1  I FE 
R=1THEN10 

11  G0T017 

12  BASEa8 ' INPUTM0CT“ >  DA$ : G0SUB31 ■ IFE 
R-1THEN12 

13  G0T017 

1 4  BASE- 10  1  NPUT 11  DEC 11 ;  DA$  :  G0SUB3 1  =  IF 
ER=ÍTHEN14 

15  GOTO 17 

16  BASE=16 : INPUT "HÉX11 ,  DH$ : G0SUB31 ' IF 
ER=iTHEN16 

17  IFNR<2-T20THEN19 

18  PRINT : PRINT  ME$= " DEMAS I ADO E SPC 10R 
ANDE"  :  Ü0SUE26  :  G0T01 

19  PRINT" [CLR 3  E CRSRD 3  E SPC 3 EQUIVALEN! 
ES  :  lf 

20  PRINT"  E2CRSRD3BIN-CSPC3XESPC3 11  i  :  B 
ASE=2 : G0SUB37 

21  PR  I NT "  E CRSRD 3 OCT  =  [ SPC 3 0 C SPC 3  ** ;  :  BA 
SEa8 : G0SUB37 

22  PRINT"  CCR3RD3DEC=C2SPC3  11  i  NR 

23  PR  I  NT 11  C 2CRSRD 3 HEX~ E SPC 3 í  [ SPC  3 11  ,¡  :B 
ASE*5 16  :  G0SUB37 

24  MES3"  C4SPC3PULSECSPC  3RETURN'1  íflOSU 
B26¡ IF2t-CHR*<13)THEN2 

25  O0T024 

26  F 1=1 

27  PRINT11  CH0M3 C21CRSRD3 " t  '■  IFFL=1THEN 
PRlNTMEt 

28  IFFL-- 1 THENPRINT11  E21SPC  3  " 

29  FORNL«1TO100  :  GETZf  :  IFZSO  "  "THENRE 
TURN 

30  NEXT : FL=-FL : G0T027 

31  NR=0 : X=LEN <DA$) 

32  ER-0 : F ORD 1  =  1 TOLEN < DRí > :DA=ASC(MID 
ÍÍDAÍj  DI  .i  n  )-48  :  IFBft>9flNDBR<17THENDfl 

=99 

33  IFDA>16THENDASDA““7 

34  I  FDR>  3  B  AOR  D A<  0T  HE  NPRI  NT 11  ERROR 11  '  ER 
=  1 

35  NR=NR+DA*BASET<X-DI) 

36  NEXT  RETUR N 

37  D*«,m,-DI-0:NZ«NR 

33  I FNZ> = B ASE  TD I THEND I -D 1 + 1  Ü0T033 

39  F0RX=DI - 1 TO0STEP- 1 

40  DR=INT (NZ/<BATX>  > : NZ=NZ-Dfl#BATX 

41  IFDfl>9THEHDA=Dfi+7 

42  D$*CHR$ÍDR+48)  PRINTDí;  NEXT  PRIN 
T  PRINT  RE TURN 
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Commodere  64 
Caracteres  Especiales 
con  Easy  Script 

Cómo  generar  caracteres  especiales 

con  Easy  Script 


Hemos  recibido  cartas 
que  nos  preguntaban 
sobre  la  cuestión  de  cómo 
generar  caracteres  especia¬ 
les  en  algunas  impresoras 
con  el  proceso  de  textos 
EASY  SCRIPT  para  Com- 
inodore  64. 


R.  PARDO 


C-í4 

_ 


Bien,  en  las  impresoras  de  matriz  de 
puntos  Conimodore  15 15/ 1525  y  MPS-80K 
la  redefinición  de  carácter  se  hace  con  el 
comando  de  EASY  SCRIPT  ch. 

El  formato  de  este  cóman  do  es  el 
siguiente: 

Bchxx?.xx?xx,xx,xx 

Donde  xx  son  los  números  que  resultan 
de  decodificar  los  puntos  del  carácter  a 
generar.  (Este  Lema  se  Loca  con  mayor 
profundidad  en  los  manuales  de  las 


impresoras 

1515/ 

525  y  MPS-80 1 ). 

ejemplo: 

1  ¿ 

* 

* 

*  í  * 

2 

4  . 

* 

* 

8  . 

Ó 

* 

16  . 

*  * 

32  . 

* 

*  * 

64  . 

* 

* 

1 

2 

1112 

2 

5 

3  4  6  5 

8 

3 

7  5  13 

Luego  el  comando  ch  quedará  asi: 
geh  I2K, 253, 137, 145, 161,253 


Para  uLilizar  este  carácter  especial 
deberá  emplear  la  combinación  de  las 
teclas  Fl  y  S.  Esto  hará  que  EASY 
SCRIPT  visualice  un  símbolo  %  en  campo 
de  video  invertido  y,  que  a  la  hora  de 
imprimir  nuestro  texto  salga  el  carácter 
especial  que  nosotros  hemos  definido  pre¬ 
viamente.  ¡Ojo!  Recomendamos  que  la 
definición  de  carácter  se  haga  EN  TODOS 
LOS  CASOS  en  las  primeras  líneas  de 
nuestro  documento,  a  poder  ser  en  el 
lugar  donde  definimos  los  parámetros  del 
documento  que  vamos  a  escribir. 


Los  usuarios  que  dispongan  de  impre¬ 
soras  Comm odore  1526  y  4022,  4023, 
8023  o  MPP-1361  tendrán  de  utilizar  una 
técnica  diferente  ya  que  la  manera  de 
definir  un  carácter  especial  en  estas  impre¬ 
soras  no  es  la  misma  que  en  las  impresoras 
que  hemos  visto  anteriormente. 

En  estas  impresoras,  hay  que  seleccio¬ 
nar  previamente  una  dirección  secundaria 
para  utilizar  cualquiera  de  sus  modos.  En 
el  caso  que  nos  ocupa,  la  dirección  secun¬ 
daria  es  5. 

¿Cómo  enviaremos  desde  EASY  SCRIPT 
una  dirección  secundaria?  Con  el  comando 
sa.  El  formato  de  este  comando  es  el 
siguiente: 

fy&zx,yy,yy\yy,yy,y\,yy 

Donde  xx  es  el  número  de  dirección 
secundaria  que  queremos  enviar,  e  yy  son 
los  números  que  decodificamos  de  la  posi¬ 
ción  de  los  puntos  del  carácter.  Vamos  a 
definir  el  mismo  carácter  con  estas 
impresoras  (en  el  caso  de  la  impresora 
1526): 

128 . 

64  .  *  *  *  *  *  , 

32  .  . 

16  .  * 

8  .  * 

4  .  * 

2  .  * 

!  .  * 

0  9  7  6  6  6  0  0 
5  2  8  6  5 

Pero  antes  aún  hay  que  ejecutar  otra 
operación. 

EASY  SCRIPT  tiene  un  método  por  el 
cual  podemos  enviar  un  código  de  carác¬ 
ter  determinado  por  nosotros  a  la  impre- 
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sera.  Esto  es  posible  porque  EASY 
SCRIPT  permite  un  máximo  de  10  carac¬ 
teres  determinados  de  este  modo,  ¿Cómo 
se  hace?  Con  el  comando: 

X= ASCII 

Donde  X  es  un  número  del  0  al  9  y 
ASCII  es  el  valor  dado  en  este  código  del 
carácter  especial  que  queramos  enviar.  En 
nuestro  caso,  debemos  enviar  el  carácter 
ASCC1  254.  Por  tanto,  escribiremos: 

Hí)=254:5a5s0 ,95 ,72,68 ,66,65 ,0,0 

Ahora  bien,  ¿cómo  enviaremos  esto? 
Pues  cania  combinación  de  las  teclas  F1  y 
0  (en  este  caso),  debiendo  aparecer  un  0  en 
campo  de  video  invertido  en  la  pantalla,  y 
en  la  impresora  el  carácter  especial  que 
hemos  definido.  Como  hemos  visto,  es 
bastante  fácil  crear  caracteres  especiales 
con  una  impresora  de  matriz,  de  puntos, 
Pero  ahora  pasaremos  revista  a  otro  tipo 
de  impresora:  las  impresoras  de  margarita 
o  de  alta  calidad. 

En  este  tipo  de  impresoras  está  disponi¬ 
ble  caracteres  de  retroceso  (backspace), 
secuencias  de  escape  (ESC)  para  distintos 
modos  de  gobierno  de  la  impresora,  etc. 

Vamos  a  hablar  de  los  dos  modelos  de 
impresora  de  margarita  con  las  cuales  tra¬ 
bajamos  normalmente  en  Microelectró¬ 
nica  v  Control:  SILVER-REED  y  NEC 
SFINWRITEK. 

Los  artículos  de  esta  Revista  se  impri¬ 
men  indistintamente  en  cualquiera  de 
estas  dos  marcas.  Este  artículo  está  redac¬ 
tado  con  una  impresora  SILVER-REED 
EXP  550  y  por  tanto,  hablaremos  en  pri¬ 
mer  lugar  de  ella. 

Esta  impresora,  en  cuanto  a  códigos  de 
subrayado  y  repicado,  es  igual  que  las 
impresoras  de  la  marca  DIABLO,  por 
tanto  algunos  de  los  códigos  van  a  ser 
iguales  para  las  dos. 

Para  enviar  los  caracteres  especiales, 
hemos  utilizado  el  método  de  enviar 
caracteres  especiales  del  que  dispone 
LAS  Y  SCRIPT.  Veamos  qué  caracteres 
empleamos: 

|¡)=125:nb  c  con  cedilla 
l=92:nb  eñe  mayúscula  (N) 

2=124:nb  eñe  minúscula  (ñ) 

3=64:  nb  acento  ( '  ) 

4=  I2ó:nb  símbolo  1/2  (V2) 

5-62:  nb  símbolo  pesetas  (Pts) 
6=60:nb  símbolo  de  primero  (°) 
7=123;nb  símbolo  de  primera  (a) 
8-93:nb  abrir  interrogación  (¿) 

9=91  :nb  abrir  admiración  (¡) 

Como  se  puede  ver,  todos  estos  códigos 
permiten  hacer  un  proceso  de  texto  de 
calidad.  Cualquiera  de  estos  signos  se 
puede  utilizar  pulsando  El  y  el  número 
correspondiente. 

Ahora  bien,  si  probamos  el  acento  más 
de  uno  se  encontrará  con  la  sorpresa  de 
que  el  acento  ocupa  un  espacio  y  la  vocal 
sobre  la  cual  iba  destinada  la  tilde  ocupa 
el  espacio  de  a!  lado.  Esto  quiere  decir  que 
nos  falta  algo. 

Estas  impresoras  disponen  de  caracte¬ 
res  de  retroceso  o  backspace.  ¿Cómo 
enviaremos  un  carácter  de  este  tipo  con 


EASY  SCRIPT?  Con  la  combinación  de 
las  teclas  El  y  flecha  a  la  izquierda  se 
envía  un  carácter  de  backspace  con  la  ven¬ 
taja  que  este  carácter  que  retrocede  el 
carro  de  la  impresora  se  toma  en  cuenta 
por  parte  de  EASY  SCRIPT  a  la  hora  de 
justificar  márgenes. 

Nosotros,  cuando  tenemos  de  enviar  un 
acento,  enviamos  primero  FI/3,  saliendo 
en  la  pantalla  un  3  en  campo  de  video 
invertido,  y  luego  Fl /flecha  izquierda, 
saliendo  una  B  mayúscula  en  campo  de 
video  invertido.  Se  puede  invertir  el  orden 
de  envío  con  idénticos  resultados. 

Aún  hay  otro  tema,  pues  en  castellano 
existen  palabras  que  tienen  diéresis,  como 
cigüeña.  ¿Cómo  enviaremos  el  carácter? 

Por  medio  de  la  combinación  de  la  fun¬ 
ción  ESC  de  la  impresora.  Para  enviar  este 
carácter  desde  EASY  SCRIPT,  tendremos 
de  pulsar  Fl /flecha  arriba,  apareciendo 
una  E  mayúscula  en  campo  invertido  en  la 
pantalla,  poniendo  a  continuación  una  Y 
mayúscula  (esto  no  es  que  me  lo  haya 
inventado  yo,  sino  que  según  el  manual  de 
esta  impresora  es  la  manera  correcta  de 
sacar  la  diéresis). 

¿Cómo  lo  utilizaríamos  en  el  caso  de  la 
palabra  cigüeña? 

Escribiríamos  las  letras  c,  i  y  g.  Ahora 
Fl /flecha  arriba  y  luego  Y  mayúscula. 
Luego  Fl /flecha  izquierda,  u,  e,  ñ,  a. 
¿Qué  fácil,  no? 

Hablaremos  de  otra  marca  de  impre¬ 
sora:  la  NEC  SPTNWRITEJL 


Estas  impresoras  no  Llenen  los  mismos 
códigos  de  carácter  para  generar  los  mis¬ 
mos  caracteres  que  la  impresora  de  la  que 
hemos  hablado  anteriormente. 

Por  ejemplo,  para  estas  impresoras  hay 
que  enviar  previamente  el  comando  de 
EASY  SCRIPT  If  con  un  valor  de  I  ya 
que  vienen  preparadas  para  ejecutar 
Carriage  Return  sin  Fine  Peed,  o  si  no  nos 
imprimiría  siempre  en  la  misma  linea  ya 
que  no  avanzaría  el  papel. 

Para  generar  el  acento  en  estas  impreso¬ 
ras,  enviaremos  el  carácter  1  (SH1E1  y  7) 
seguido  de  backspace  (F i/flecha  izquier¬ 
da),  Por  ejemplo  para  escribir  condición: 


condicíBon 


En  cuanto  a  la  eñe,  no  tenemos  un 
carácter  especial  como  en  el  caso  de  Sil  - 
VER  RETE)  sino  que  tendremos  de  definir 
un  carácter  especial:  la  tilde  (esa  linea  de 
encima  de  la  eñe!.  Por  tanto: 

H»— 126 

nos  enviará  este  carácter.  Luego  para 
generar  la  eñe  tendremos  que  enviar  pri¬ 
mero  la  tilde,  luego  backspace  y  luego  ene. 
Por  ejemplo  así  escribiríamos  año; 


Así  pues,  hemos  visto  lo  fácil  que  es 
generar  caracteres  especiales  con  EASY 
SCRIPT  y  cualquier  impresora.  Creo  que 
con  este  artículo  podrá  cualquier  persona 
crear  y/ o  enviar  cualquier  tipo  de  carácter 
desde  este  proceso  de  texto. 


Tele  Sant  Just 

Mayor,  2.  Tel.  (93)  371  70  43 
SAN  JUST  DESVERN  (Barcelona) 


INTERFACE  para  recibir  y  transmitir 
CW  y  RTTY  en  el  VIC-20  y  COMMODORES  64. 


INTERFACE  para  poder  conectar  cualquier 
cassette  a  los  ordenadores  COMMODORE  64. 


BASE  DE  DATOS  en  cassette 
ARCHIVO  DE  OSL. 


"NECESITAMOS  DISTRIBUIDORES" 
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METEDURAS  DE  PATA 


En  d  listado  de  “tiro  al  blanco” 
para  el  C-64  del  número  uno,  se  desli¬ 
zaron  varios  errores  en  las  líneas  750, 
920.  940  y  970,  deben  ser: 

750  POKE  NI  1  DF,  WH1TE 
920  FRIWT”  [YEL]  [4USHIFT  Q]” 
940  PRINT”  [Y HE]  [40SH1FT  Q] 
[3CRSRD]" 

970  IF  HITS  HSTHEN  HS  =  Hl: 
PR I NTTAB  (8)  ”[GRN  ]  |  CRSRD] 
NEW  [SPC]  HIGH  [SPC] 
SCORE!  [BLK]” 


En  el  número  2  de  la  revista  se  han 
colado  los  siguientes: 

Pág-  LE  en  el  cuadro  donde  diec  024 
debe  decir  C-64, 


Pag.  18,  donde  dice  "recomendado 
para  C-64  y  0700”  debe  decir  "para 
0700”. 

Pag.  19,  donde  dice  "fotos  cedidas 
por  DENO”  debe  decir  "por  DEMO”. 

Pag.  44,  donde  dice  ”$0304  783 
almacenamiento  temporal../',  debe 
decir  ”8030 F  783...” 

Pág.  45,  donde  dice  ”1°  Cuando  se 
utilizan  SKR AM ..."  debe  decir  “1- 
Cuando  se  utilizan  8  KRAM41„" 

Pag.  48,  En  el  último  truco  la  línea 
10000  debe  ser; 

10000  POKE  78 E  FILA:  POKE  782, 
COLUMNA:  POKE783,0:  SYS  65520: 
RETURN 


ATENCION  —  JOSE  M1  MAC!  = 

Encamados  de  hablar  contigo  por 
teléfono  pero  Tiro  al  Blanco  no  nos  da 
error  en  la  línea  850. 

En  fa  colaboración  de  Ernesto 
Sánchez  UTILIZANDO  EL  FORT 
DEL  USUARIO  publicado  en  el 
numero  de  febrero  se  colaron  un  par 
de  espontaneas  “colaboraciones"  de 
nuestro  BUG  particular:  En  la  página 
29,  columna  derecha,  párrafos  3  y  4  se 
dice  PRO,  PB3  v  PB7.  Pues  bien,  debe 
decir:  PRO,  PB3  y  PB6. 

En  el  número  2  no  publicamos  las 
fichas  de  descripción  alfabética  de  los 
mnemónicos  del  6502/6510  por  tar¬ 
danza  de  correos.  Ya  se  han  tomado 
medidas  para  que  no  vuelva  a  suceder. 


CORRECCIONES  DEL  MANUAL 


Manual  del  usuario 
de  la  Unidad  de  Disco  VIC  1541 


Página  Error 


14 


»  4  * 


Programa  soporte  del  DOS,  No  menciona 
nada  de  dos  de  los  comandos  del  C-64 
(no  valen  en  el  VIC),  son: 

%  NOMBRE  =  LOAD”  NOMBRE”, 8 ,1 
%  NOMBRE— I  DAD”  NOMBRE”  8+RUN 


Formato  para  el  comando  "pos ilion”. 
Todas  las  veces  que  aparece  en  el 
ejemplo  la  abreviatura  re9  deben  susti¬ 
tuirse  por  reg.  (registro). 


Primer  listado.  La  linea  40  debe  ser: 

40  PRINT# I,  ”p”  CH R${3 )CHR$(  1 ) 
CHR$(Ü)CHR$(  1 ) 


Segundo  listado.  La  linea  80  debe  ser: 
80  RESTORE:  DATA  1,  FIRST  ÑAME, 
...  etc  ... 


Método  de  hardware.  Las  nuevas  unida¬ 
des  de  disco  tienen  otra  placa  de  circuito 
impreso  diferente  a  las  antiguas,  y  el 
punto  7  del  cambio  es  casi  imposible  por 
no  estar  los  puentes  en  la  misma 
posición.  Eos  nuevos  puentes  se  encuen¬ 
tran  en  el  centro  de  la  placa;  en  el 
próximo  número  publicaremos  un  cro¬ 
quis  sobre  su  ubicación. 


En  el  programa  para  leer  el  directorio 
faltan  las  líneas  500  a  550,  que  deberían 
ser  las  siguientes: 

500  BS=”” 

510  FOR  L=ü  TO  J 
520  GET#  1  ,A8 

530  IF  A$  CHR$(96)THEN  [FAS 
CHR$(ló0)  THEN  B,$=R$+A$ 
540  NEXT 
550  RETURN 
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ma  1  sí  se  salta  a  la  misma  página.  *  Suma  1  si  se  salta  a  la  misma  página, 

ma  2  si  se  salta  a  otra  página.  *  Suma  2  si  se  salta  a  otra  página. 


El  mejor  ordenador  personal  del  Mundo 

\r\  n  mrfn  700Hn  ntoo 


L  Capacidad  total  de  memoria  RAM  de  64  K. 
Interpretador  BASIC  extendido  y  sistema  operativo 
residentes  en  ROM, 

2,  Dotado  del  más  potente  chip  sintetizador  de 
sonido  diseñado  hasta  hoy,  el  COMMODORE  64 
ofrece  3  voces  totalmente  independientes  con  una  gama 
de  9  octavas.  El  programa  puede  controlar  la 
envolvente,  la  afinación  y  la  forma  de  onda  de  cada 
voz,  convirtiendo  al  COMMODORE  64  en  el  mejor 
simulador  de  instrumentos. 

3,  Conectable  directamente  a  toda  una  gama  de 
periféricos,  incluyendo  unidad  de  discos,  impresora  de 
matriz  de  puntos  o  de  margarita,  plotter, 
comunicaciones  locales  y  remotas.-,,  y  mucho  más. 

4,  Pantalla  de  alia  resolución  en  color  con  320  x  200 
puntos  directamente  direccionables.  Capacidad  en 
modo  carácter  de  25  líneas  por  40  columnas. 

5,  El  chip  de  video,  único  en  su  género,  permite  el 
uso  de  8  «Sprites»  (figuras  móviles  en  alta  resolución  y 
color).  Los  «Sprites»  pueden  moverse  independiente¬ 
mente  por  programa  de  «pixel»  en  «pixel». 


6.  Teclado  profesional  con  mayúsculas  y  minúsculas, 
más  62  caracteres  gráficos,  todos  ellos  disponibles  en  el 
teclado  y  visualizares  en  16  colores,  en  forma  normal 
o  bien  en  video  invertido. 


7.  Encontrará  a  su  disposición  una  completa  gama  de 
programas  profesionales,  incluyendo  proceso  de  textos, 
sistemas  de  información,  modelos  financieros, 
contabilidad  y  muchas  más  aplicaciones. 


8,  Están  en  fase  de  desarrollo  otros  lenguajes  tales 
como  LOGO,  COMAL,  PILOT,  etc. 


9,  Opción  de  un  segundo  procesador  Z~80  para 
trabajar  con  sistema  operativo  CP/M  (R). 


commodore 

COMPUTER 


MICROELECTRONICA  Y  CONTROL 
c/  Taquígrafo  Sena,  7,5°  Barcelona-29 
c/  Princesa,  47,  3o,  G  Madrid-8 


